ASSIGN MjCIj .;FTLF#EDI r # jDUOCT ) 

METASYM CNCK#L9 

tSS SRliSR,3,SR3iSP^#Dl*Dp,D3/D4#$ 



* C0NC6RDAKCE FXTENOEU MEPBry M8DEt 
t REFERENCE C*UNt « 637S* DTSK 8VERFL8W • 331Rt 
ABN 



5<f9?/ M ?SETDLB t>49^/^JREAD 
611?/M|WRITE 



5S2Q/M:PREC&RD 6073/M J SETDCB 6q78/M!WRTTE 6106/M SSETDCb 



adocdtparam 












90S/BAL 


9?r/BaL 


929/BaL 


9S7/BAL 


967/BAL 


978/8AL 


1C«*,/BaL 


UOr/BaL 


1125/BaL 


1U2/BAL 


115^/BAL 


1166/BAL 


119P/BAL 


1213/BAL 


1218/BAL 


1R26/BAL 


1241/BAL 


1262/BAL 


1313/BAL 


1357/BAL 


1373/BAL 


1380/BAL 


1MO/BAL 


U18/BAL 


1*36/BaL 


U83/BAL 


1498/BaL 


1519/BAL 


1531/BAL 


1571/BAL 


164P/BAI 


3767»EQU 










ADJINT 












UOO/^At 


Xllfi/BAL 


1210/BaL 


1P38/BAL 


1300/BAL 


13<f6/BAL 


U74/8AU 


I490/BAL 


ISH/BaL 


1527/BAL 


1S63/BAL 


1637/BAL 


A0JUSTALLFLA6 












350*/BAL 
AF 

69/SET 


3558/BAL 


3593/8AL 


3614/BAL 


3668/BAL 


4305*EQU 


124/C8M 


124/C8* 


124/C8M 


124/C8M 


131'D8 


133/PS W 


13R/LCI 


135/LCI 


136/PSM 


U6/D8 


U7/SET 


14Q/PLW 


151 /LCI 


151/LCI 


1S2/PLM 


162/08 


163/08 


Ifi6/SET 


197/SET 


199/GFN 


201/ERR8R 


203/QEN 


203/GEN 


20F/QFN 












AFA 












199/GpN 


20P/D8 










ALLFLAG 












3q4»DATA 


649/STW 


699/ST^ 


1764/ST* 


I87g/MT^ 


3488/MTW 


4308/STW 


*3S9/t* 


4444/STW 


4458/STW 






ALL8K 












30F»PATA 


1830/STW 


3516/ST* 


3568/STW 


3624/STW 


4422/MTW 


AL^H 












184-EQU 


7<f?/NXTPRM 


91Q/NXTPRM 


917/NXTPRM 


931/NXTPRM 


1068/NXTPPM 


tlJ5J?/MXTPRM 


llfeR/LI 


1202/NXTPRM 


1216/NXTPRM 


1P17/LI 


4095'Ll 


ANLZRIGHT 












432;;UEQU 


*67B/BAL 


4752/BAL 









1070/^AL 
1180/bAL 
1305/bAL 
l#29/bAL 
1577/bAL 



l^Ol/WAL 
1652-LW 



132/U8 
U8/UB 
166/^ET 

205/MEN 



4306/NTk 



1069/LI 



AR10 


43J26/BL 


*33R-LI 












ARlOA 


43<+?»CB 


4347/BLE 












AR12 


4337/BQ 


*35i»LI 












AR15 


4343/BE 


*357»AI 


4360/Br 










AR18 


43K3/B 


^364-PULL 


4375/6 










AR20 
















B A 


4339/BNEZ 


*37fi«lW 












!6«7/LT 


1711/11 


1722/LI 


2859/L1 


308S/LI 


3095/LI 


3117/U 




344 1/1 1 


4019/EQU 


4019/EQU 


4046/EOU 


4046/EQU 


4256/EQU 


4256/fcGU 




RQ19/LT 


&033/LI 


5133/LI 


5527/Ll 


6027/L! 


6043/LI 




BADIf? 


















5C«^» R rS 


&47*/BNE 


5514/BNE 


60^8/BNE 


6122/BNE 






BADI61 


















50?7/Bn£ 


t>08*«RES 


5840/BmE 


5279/BNE 


5387/8NE 






BOtSPTBL 
















54F«EQU 


J7QP/CW 












BD10 


4907-11 


*9lP/BDR 












BD2?0 


49JJ1/BME 


*925»EQU 












BD30 


491^-EGU 


49£4/BDR 












BFQlNpDITOP 
















7A/DFF- 


250/DATA 


636-EQU 


661/LI 


M45/END 






BGDIO 


*3*/B 


653»LI 


678-EQU 










BlNT0DrC 
















?8I>0/BaU 


^097/8AL 


3442/BAl 


49Q2*EQU 


5020/3AL 


5Q34/BAL 


5134/tfAL 


U > 


608*/BaL 














BL 


229. ECU 


1724/GEN4 


2071/0pN4 


3668/GEN4 


2935/GEN4 


3119/GEN4 


5882/UEN4 



blank 


UJOEQU 






BLANiKBUF 








49:?4-PUSH 


bif57/BAL 


5490/BAL 


BLANKCMT 








30*- R ES 


47U/STW 


4754/AUiM 




4 7!**/ AW 


^8lS/LW 


4828/XW 


BLD08 










20^6/BE* 


#05?*MTto 


2Q65-EGU 


BLD10 










20B4-CI 


£06A*EQU 


2102/BLE 


BLD12 










20!53/B£Z 


205R/BEZ 


2070*BAL 


BLD?5 










?09?/BlE 


£09*»BAL 




BLD3C 










8077/Be 


«10*/BEZ 


2ili*EQU 


BLD40 










203(vbch 


*l2f>8Al 




BLDB 










2037/BF* 


2044»LI 




BPFLAG 










3 C ;7»DATA 


ISlK/STW 


347Q/STW 


BPV6FF 










sooi/Cw 


801B-TEXTC 


2361/CW 


BPVBN 










1993/Cw 


£014»T£XTC 


2354/CW 


BPViC 










20C2/BNE 


K009»BAL 


2363/B 


BpVg 










1994/BNE 


2001 »CW 




BRSFPT 










51P-QFN 


1750/CAU 




8RK$K£Y 








682/MllNT 


1674-PUSH 




BRK30 










16«3/BF£ 


X697»LI 





4759/CW 
4842/AW 



2123/8 



3728/LW 
2378/0 
2372/CW 

2380/B 



4770/SW 

4851/AWM 



4775'STW 

4870/AWM 



4793/AWM 
4881/STW 



3730/STW 



4338/MTW 



BRK^C 


1703/BE 


1707*CI 












BRK50 


17()*/BLE 


X72o»Lw 












BRK53 


173?»IB 


173*/BQR 












BRK55 


17*J7«STW 


17<k>/B 












BRK fe O 


17g*/BGEZ 


174?»LW 












BRK80 


















16IU/8NCZ 


16S6/BLZ 


1694/B 


1705/B 


1710/BLZ 


1718/B 


1721/&LZ 




1740/B 


17<».ft*BAL 












BRK90 


17»>**ll 


1789/LI 












BRKgi 


176A/BEZ 


177MEGU 












BRK99 


1679/BU 


1699/BEZ 


1798-ECU 










BUF 


607/HJPCB 


6P1/MJDCB 












BUJLDFUG 
















^e 5 0/MTW 


500*DATA 


a052/MTW 


2113/MT* 


5586/STW 


5990/L^ 




CARDIMG 
















308-RES 


519/DATA 


565/DATA 


581/OATA 


607/MjDCB 


621/MfDCB 


2080/UB 




20«*>STB 


£67ft/LB 


2680/STB 


2687/LB 


269g/STB 


27Q6/STB 


2722/STB 




?9^4/LB 


295P/STB 


3330/LB 


3331/STB 


334^/STB 


3360/CB 


3362/UB 




3363/STB 


3364/STB 


3376/CB 


3531/STB 


*3<*?»/CB 


4359/CB 


45Q3/£B 




4585/CB 


^557/STB 


4640/CW 


4646/CB 


4650/CB 


4697/LB 


4698/^TB 




47C34/STB 


^801 /LB 


^802/STB 


4817/STB 


*93i/STW 


5^f08/CB 


5416/STB 




561.7/STB 


56gi/STto 


5626/DATA 


5662/CB 


566B/CB 


S670/STB 


5698/tB 




57J?8/STB 


&739/LB 


574Q/STB 


5741/STB 


578p/CB 


5790'CB 


5799/STB 




5804/LB 


580S/STB 


5818/STB 


5860/LB 








CBRCHTBL 
















7H7/EXU 


8l4*EQU 












COT 


















309. RES 


7QFi/STW 


711/STW 


718/LI 


738/MTW 


763/AWM 


1812/UI 



37«?*/U 


*28l /BR 


5907/MTfc 


COTADR 






310-RFS 


713/STW 


734/LB* 


162?/U* 


1624/STW* 


H98/LB* 


188*/LB* 


189ft/i> 


1991/tB* 


2039/LB* 


2Q40/LW« 


2045/LB* 


213*/IB« 


*139/AW 


2159/LB* 


P176/AW 


*187/IB* 


2208/LB* 


PH!51/LB* 


825P/AW 


2236/LB* 


2283/AH 


229*/lB« 


2297/AW 


?3!5?/LB* 


^353/LW* 


2370/LB* 


2*21 /AW 


«^7?/LB» 


2473/AW 


SSiO/Alw 


*5i7/LB* 


2518/AI* 


?S81/AW 


2619/L8* 


2620/AW 


2767/LB* 


£76*/lW» 


2770/LW* 


28(H/Aw 


S911/LB* 


2912/Lw* 


300*/Lfo* 


^006/LW* 


3008/LB* 


301S/IW* 


3U9/LB* 


3H4/LW« 


3260/LB* 


4261/L** 


3263/LW* 


339*/Lfo 


3399/LB* 


3467/STW 


3572/LB* 


3573/LW* 


3588/lB* 


362? 'VU* 


36<f3/LB» 


3644f/AW 


3773/STH* 


377*>/STB# 


3778/AW 


4294/STW* 


*393/LB* 


4398/LB* 


443?/UB* 


^^33/AW 


4592/LB* 


*6(J7/LW* 


*899/LB* 


5958/tB* 


CFLAG 






501*DATA 


516/DATA 


1753/LB 


CHARPSN 






311 -RES 


706/STW 


1621/MTW 


3884/ST* 


39U/LW 


4002/ST^ 


CHECKICDTEN'TRY 






106A/BAL 


1083/BAL 


1153/BAL 


13!5^/ B Al 


139*/BAL 


1456/BAt 


375*7- ECU 






CHGISTC:CNT 






3K3«,DATA 


70«/STW 


3435/LW 



735/AWM 
I8l3/ST^ 
1992/LW* 
2048/LB* 
2160/L>* 
2?09/lM 
2257/AW 
2300/LB* 

2371/LW* 
2485/tB* 
2533/tB* 
2648/LB» 
2795/LB* 

2917/LB* 
3009/LW* 

3U6/LB* 

3350/LB» 

3520/LB* 

3589/AW 

3633/LB* 

3785/LW* 

4402/LB* 

4595/LB* 



5571/MTW 

3821/LW 
4060/LW 

1195/BAL 
1469/BAl 



3447/STW 



948/STB* 
1832/LB* 
2025/LB* 
20^9/LW# 
2167/UB* 
2212/UB* 
2269/lB* 
2301/AW 

2390/L8* 

2490/LB* 

P536/LB# 

2649/LW* 

2796/l>» 

2920/LB* 

30ll/LW# 

3U7/LW* 

3391/LB* 

3521/AW 

3606/LB* 

368*/LW# 

428<*/ST*# 

4403/LW* 

4B96/LW* 



5573/MTW 
3828/ST* 



1259/BAL 
1509/BAL 



443A/MTN 



993'tB# 
1877'tB* 
2026/AW 
2135/LB* 
2168/AW 

2270'AW 
2335'LB* 

2391/AW 
2491/AW 

2537/AW 
2651/LB* 

2800'LW* 

2921/Lw* 

3014/LB* 

3l83'LB* 

3392/LW* 

3551/LB* 

3607/AW 

3770'STB* 

4288/STB* 

M1S/lB» 
4603'LB« 



3852/LW 



1277/BAL 
1569/BAL 



4440/MTW 



997/UB* 
1878/AWM 

2036/LB* 

2136/A* 

2175/UB* 

2216/UW* 

2282/UB* 

2336/Aw 

2420/UB* 
2B09/UB* 
258Q/U6* 
2652/UW* 
2803/UB* 
3003/UB* 
3Q17/UB* 
3I84/UW* 
3394/UW* 
3552/A w 

3628/UB* 
3772/UB* 
4291/STW* 

4606/^B* 



3868/UW 



1295/tiAU 
1639/BAL 



4S34/nt^ 



CL9SC 



CLSSE? 



CL6SE3 



1770/BAL 
2323 /BAl 
25«9/BAL 

1780/8AL 

49!i7.EGU 

1773/BAL 
CM 

230-EQU 
CMNOTBL 

1871/EXU 

CMTIO 

26^7. BAl 

CMT15 

2705-LB 
CMT20 

871 O/B 
CMT30 

2721 /BGE 

CMUO 

2684/BU* 

CMTBO 

26!$#/6CS 

CMT60 

P73P/BE 

CMT70 

2714/BNE 
CM10A 

P67Q/8E* 
CMJOB 

2687-LB 

cnamftbl 

747/CUi 

CNMRTBL 

7<$*/lB 



178S/BAI 
*33o/BAl 
^59^/BAL 

22*3/BAL 



*179/BAl 

*01*/CATA 

193R.EGU 

2734/B 

*7l?/BL 

*72n*d 
£72*»BAl 

*65*/BQE 
2744»BAl 
*75n*BAL 
£756*BAl 

*69«5»EQU 

*69n/BDR 

771*EQU 

85*»EQU 



2CS6/BAL 

2^15/8AL 
2598/BAL 

2313/BAL 



2237/BaU 
4254/OATA 



2724/B 

2758/B 

2738»BAL 



2107/BAt 

3443/BAL 
8600/BAL 

232Q/BAI 



2318/BAL 



2122/BAL 
2456/BAL 
2605/BAL 

2333/BAL 
2339/BAL 



2236/BAL 

2506/BAL 

#949»PQU 

2590/BAL 



4962«MjCLesE 



2242/&AL 
2530/fc»AU 
5834/^At 

2595/fcAL 



SIO/EGU 



17Q0/L* 



C8M 



CaPVFL 

cpvi 

CPV1A 
CPYlB 

CPYio 

CPY15 

CPY? 

CPYgC 

CPY3 

CPY30 

CPY32 

CPY35 

CPY36 

CPY37 

CPY^C 
CPY5 



12P9/NXTPRM 
H31/NXTPRM 

38556/NXTNAM 

31? »DATA 
Pl^F-AI 

2H9/8E* 
21K1/8NE 
2188/BKEZ 

?166«LI 
?19*/BE 

P1I>?/BnE 

?1!57/6F 

?2!54/BC« 

8860/BCS 

232?0-BAl 

2171/BCS 

21«JJ?-BaU 



10RM/NXTPRM 
1307/KXTPRM 
148^/NXTPRM 

3871/NXTIVAM 

X7W/MTW 

81BP/B 

*15*«CB 

*207»LI 
£220»BAL 

222P/BE 

£i84-BAl 

*2Sn»lI 

£267«L1 

£31 t «BAL 

2304/BCS 

*3i9/B 

£203/8 



1097/NXTPRM 
1367/NXTPRM 
1521/NXTPRM 



1875/STtt 



2231/BLE 

2235/8FZ 
2261/BCS 



2318-8AL 



2322*BAl 



11H/NXTPRM 

1375/NXTPRM 
3826/NXTNAM 



2133/STW 



P?42»BAL 
2263/B 



1182/NXTPRM 
1412/NXTPRM 
3839/NXTNAM 



2234/MTW 



230R/BCS 



1201/NXTPRM 
14g3/NXTPRM 

38S4^NXTNAM 



2268/MTW 



2331/^TW 



2307/B 



2476/BCS 



2197-.U 

2332/BNEZ 

P338/B 

2280/BfcEZ 



CPV^A 
CPY50 
CPV56 
CPY58 
CPYfeO 

CR 

231 -EOU 

CRFLAG 

3JL3-0ATA 

?3!$£*STW 
CR?5 

P3555/BNE 
CtsFUG 

3!55*DaTa 
CTBLSZ 

744/UT 
DELETE 

P583/BAL 
DELETEFILE 

S337/BAL 
DeLETERECORD 

P884/BAU 

delnxt 

347*DATA 

DFiABN 

5QH8/LI 
DFLTINCR 

334. DATA 

DFLTSFG 

25.S-EGU 

DIGITS 



*22*/BCS 
*!339*BAl 

<^3^fi*B 

8893/BNEZ 
M7/GEM 

*35*/STto 
236P/BE 

*)B ^JH ^ I *B w ™ 

7Q9/STW 
8lf)»EGU 
*773/BAL 
£39?/BAt 
306P/BAL 
*99*/STW 

&074-RES 
2539/STW 

2033/LI 



2328-8AL 



23H-BAL 
4015/DaTA 

5*03/l> 



1890/MTH 

3042/BAL 
5056»EQU 
3082/BaL 
4995/lW 

2913/U 



4250/DATA 



1876/sTI* 

4975»FQU 

3153/BAL 
4999/STB 

2922/STW 



5K67/CJ 



5933/Ll 



5986/U 



2660/MTW 



2669/MTW 



501P/3AL 5116»FQU 
SOOO/MSDELREC 5003'LW 



3012/LW 



3019/RTW 





293»DATA 


393P/CLM 


DLT10 








P393/BCS 


&403»BAl 


DLT5 


?3<)7»BAU 




DLIO 








4990-CW 


$OC?/B 


OL1S 








49<}3/BtE 


$Oi1«BL 


DL17 








5Q1S/BE 


b023«ECU 


Dl£0 








6011/BL 


t>030»LW 


DLS?5 








^0*)P/BlE 


$037«EGU 


DL30 








4991/BE 


bo#4»BAL 


DMYjiTPM 






45i««BAU 


S939/STW 


dmy*typecerr 






440-EQU 


396D/STW 


dmy$typeperr 






^6-EGU 


3955/STW 


DHYSTKDW 






275-DATA 


70P/L0 


DO 








U6-EGU 


2674/L* 




30J?7/CLM 


3029/LW 




378]/UVn 


378p/STw 




4910/ST8 


5l3«/LI 




B16P/ST8 


5)169/LB 




59U/AI 


t>9l!5/SLS 




60J?9/lW 


6031 /SLD 


EDITiDCBT 






47S/DATA 


*87»EQU 


ED!T$TC8 






248/DATA 


470»EQU 



^069/CLM 



4161/CLK 



Mao/ciM 



4213/CtM 



5046/B 



5940/BAL 

3961/B 

3956/B 



2693/STW 
3031/CLM 

3798/U 
5139/CB 
517Q/STB 
592S/9R 

6035/ST* 



2705/LB 
3033/Cl* 
3799/CI 
5H8/CB 

5179/LB 
5926/STB 

60<H/LI 



2706/STS 
3340/STW 

4907/LI 
515B/LB 

5181/STB 

5951/LB 
60WCB 



3023/LW 
3367/CW 

<*9q8/DW 

5156/STB 

S899/LB 

59S9/AI 

6048'CB 



3025/l»LH 

3374/CW 

4909/AI 

5X61/LI 
5913/UW 
5961/STB 



1U 



EDIWSTK 
















471/DATA 


481»EQU 












EDITBA! 


bt 
















6?.CSECT 


73/OEE 


247/aRQ 


658/LI 








EDT1C 


24»3/bcs 


243S»BAL 












EDT15 

C ft T *"i f\ 


2437.LI 


£446/8 












tDTgO 


242>«/BCS 


*443-BAl 












EDT5 
















END 


PM4/BL4 


*4i9»LI 












178-EGU 


743/NXTPRM 


97Q/NXTPRM 


981/NXTPRM 


1011/NXTPRM 


1Q73'NXTPRM 






lOqO/NXTPRM 


UI3/NXTPRM 


1128/NXTPRM 


1184/NXTPRM 


1230/NXTPRM 


X265/NXTPRM 






12KP/NXTPRM 


1309/NXTPRM 


1316/NXTPRM 


1362/NXTPRK 


1369/NXTPrm 


1377/NXTPRM 






1383/NXTPRM 


1414/NXTPRM 


1425/NxTPRM 


1433/NXTPRM 


1439/NXTPRM 


X523/NXTPRM 






1334/NXTPRM 


X580/NXTPRH 


1594/NXTPRM 


1620/NXTPRH 


1634/NXTPRM 


3827/NXTNAM 






38B7/NXTNAM 


387P/NXTNAM 












ENDEDIT6S 
















6<>9/Ll 


6l#4-EQU 












E8DCLMK] 
















31B-RES 


*33A/CW 


4346/CW 


4370/LW 


4374/SW 


4658/STW 


566Q/STW 


P AC* 


56??/*TW 


$8g1/l> 












C. U f 


23P-EQU 


S195J/CW 


2221/CW 


2431/LW 


2501/CW 


2S51/CW 


2583/Utf 




?73i/CW 


2811/CW 


3038/CW 


3053/CW 


3189/CW 


3215/CW 


3284/^W 


ESM 


34559/CW 


4990/O 


5515/LW 










233-EqU 


417/GEN4 


417/GEN4 


2071/QEN4 


2668/GEN4 


2935/QEN4 


3232/UEN4 


f r*n 


55J?9/QEN4 


S533/CI 


5882/GEN4 


S982/CI 


6000/LI 






ERR 


54<iO/^tSETDC8 


$46?/MSR£AD 


552i/M:READ 










ERRCl 


















365-TEXTC 


4579/DATA 


4826/DaTA 


4878/DATA 








ERRCln 


374.TEXTC 


447R/DATA 













ERRC11 

ERRC2 

ERRC3 

ERRO 

ERRCB 

ERRC6 

ERPC7 

ERRCg 

ERRC9 

ERRMl 

ERRMl? 
ERRM13 

ERRMU 
ERRMis 
ERRMU 
ERRM17 

ERRMlg 

ERRM19 
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37R-TEXTC 

367-TEXTC 
36^-TE^TC 

369-TFXTC 
370-TFXTC 
37l*TE*TC 
37?-TFXTC 

37' 3I *TFXTC 

121?/NXTPRM 

37W-TEXTC 
504P/DATA 

384-TEXTC 

38R.TEXTC 

38A*TEXTC 
387-TFXTC 

389-TCXTC 
390-TEXTC 
391-TEXTC 



H23/DATA 

4687/DATA 

3699/DATA 

76R/DATA 

♦469/DATA 

^gB/DATA 

751 /DATA 

739/NXTPRM 
1223/NXTPRm 

K751/DATA 
S527/U 

244R/DATA 
191R/DATA 
K404/DATA 
8181/DATA 
3133/DATA 
*60?/DATA 
S607/DATA 



1909/DATA 



941/DATA 

909/NXTPPM 
1278/NXTPRM 

2876/DATA 
5532/LB 



2436/DATA 



3693/DATA 



916/NXTPRM 

1R92/NXTPRM 

3111/OATA 
5539/STB 



3719/DATA 



930/NXTPRM 
1615/NXTPRM 

3238/DATA 



3802'DATA 



1157/NXTPRM 
1638/NXTPRm 

3315/DATA 



1174/PATA 

3476/UATA 



ERBMgo 
ERRM21 
ERRM3 

ERRM4 

ERRMg 

ERRM6 
ERRMs 

ERRQRCK'T 

ERRP1 

ERRPlO 

ERRP11 

ERRPl? 

ERRP13 

ERRPU 

ERRPHA 

ERRP15 

ERRP16 

ERRP17 



3<}?.TFXTC 
3!t3"TF.XTC 

3«)4»TFXTC 
379«TrXTC 

3^,o-tf:xtc 

3«t-TE*TC 

3«?-TEXTC 

3«?-TEXTC 

3]>»RpS 

396-TEXTC 

<K}«»TEXTC 

<K)*»TEXTC 

407.TEXTC 

4()*uTFXTC 

<K)9*TE X TC 

MOEQU 

43. 1-TpXTC 

MP-TEXTC 

4JL3.TEXTC 



£3i*?/DATA 
S1C4/DATA 

*094/DATA 
3105/DATA 
*010/DATA 
2870/DATA 
1849/DATA 

7i*/STK 
274S/DATA 
1134/DATA 
*23?/DATA 
*3g3/DATA 
231P/DATA 

4in/EGU 

M49/DATA 
2329/DATA 
12**/DATA 
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2233/DATA 



2757/DATA 



3321/DaTA 

1843/Cl* 

3159/DATA 

4188/DATA 



2739/DATA 



J357Q/DATA 



2958/DATA 



34Q9/DATA 

1845/STIn 
3953/CI 



2970/OATA 



346S/ST* 



4426/MTW 



5894/flTW 



1321/DATA 



1444/DATA 



1539/DATA 



X'4 



ERRP18 


41*.TEXTC 


«U3/DATA 










ERRP? 


3!57»TEXTC 


316R/QATA 










ERRP3 
















398-TEXTC 


3813/NXTNAM 


3818/LT 


3837/NXTNAM 


3853/Ni x TNAM 


3861/NXTNAM 




3869/NXTNAM 












ERRP4 
















3<?cuT£XTC 


S^fc/NXTPRM* 


979/NXTPRM* 


1009/NXTPRM* 


1067/NXTPRM 


1071/NXTPRM* 




1087/NXTPRM* 


X110/KXTPRM* 


1126/NXTPRM* 


1181/NXTPRH* 


lSOO/NXTPRM» 


1263^NXTPRM* 




1,306/NXTPRM* 


13U/NXTPRM* 


1360/NXTPRM* 


1366/NXTPRM* 


1374/NXTPRM* 


1381/NXTPRM* 




mi/NxTPRM* 


X*2P/NXTPRM# 


l#30/NxTPRM# 


1437/NXTPRM* 


1*8*/NXTPRM# 


152Q/NXTPRM# 




15*J2/NXTPRM* 


157R/NXTPRM* 


3822/NXTNAM 








ERRP5 
















400-TEXTC 


X09F/NXTPRM 


1205/NXTPRM 


1P33/NXTPRM 


1296/NXTPRM 


1339/NXTPRM 




13!J7/NXTPRM 


X470/NXTPRM 


U86/NXTPRM 


I5IO/NXTPRM 


1524/NXTPRM 


1559/NXTPRM 




16GA/NXTPRM 












ERRP6 


♦Ol.TgXTC 


UlB/NXTPRM 










ERRP7 
















^Op.TEXTC 


i3ln/NXTPRM 


137Q/NXTPRM 


1378/NXTPRM 


1426/NXTPRM 


143^ / NXTPRM 


ERRPg 
















*(53«TPXTC 


964/MXTPRM 


1002/DATA 


1415/NXTPRM 






ERRP9 


40«.TgXTC 


97R/NXTPRM 










EXC1C 
















18556/B 


1871 »EXU 


1886/B 


1893/BNEZ 


1895/BLZ 


1904/B 


EXC15 


1873/BGEZ 


X884»LI 










EXC20 


1847/BNEZ 


189?»HTW 










EXC3C 


18!>S/BMEZ 


1861 /BNEZ 


1908-BaL 








EXC40 


1839/BLZ 


19l4»BAL 










EXC5 


1837/BL 


1841/BLE 


186Q-MTt* 









EXC5C 
FXCB5 
EXC6 

FtBLANKtPRFSEPV 

1936/BaL 
FJBU1LD 

1939/BAU 

fjc&py 

19^0/BaI 

FSCR 

l93*/BAl 

fjdeiete 

19A1/BAL 

FJEDIT 

194P/BAL 

f:ei 

HfVDfrF 

54fc1/MjREAD 
5S2.1/MJREAD 
FJENO 

4S?/B 

FSE6 

FlLNK 

1C9-EQU 
194P/BAU 
2Q11/B* 
2343/B* 
2603/B* 

F I MERGE 

194*/BaL 
FjRP 



x * 



19gn«»MTW 
X93n«EGU 
X854»MTW 

1989*EQU 

*02?*EGU 

*l3n.£GU 

*35ft»EGU 

*387*£GU 

*4l?«EGU 

490/DaTA 
^950/MJCt8SE 

S49?/M|SETPC8 
5654/L'w* 

1943/BAL 

49P/DATA 
^95«/^iCL6SE 

X93A/BAL 
I943/BAI 

211A/B* 

*359/B* 
*60R/8* 

*46g«BAL 



562/Gp-N 

5000/MlDELREC 

5493/MjREAD 
5656/Lw 

2114/BE* 

579/GgN 

4962/MjCLeSE 

1937/BAL 

1944/BAl 

2238/B* 

2376/8* 

2634/B* 



600«CSECt 
S117/MIDELREC 
B498/l> 
6106/MISETDC8 

2453*EGU 

615.CSECT 
5067/MjCLBSE 

1938/BAU 
1945/BAl 
2P46/B* 
2399/B* 



601-MSDCB 
5220/U 
5501/LW* 
6107/MJWRITE 



616.MJOCB 
6073/MJSETDCB 

1939/8AI 
1949/BAl 
2314/8* 
2405/8* 



609-EQU 
5460/MSSETDCB 
552Q/M|PREC8RD 

6137/MSWRITE 



624-eQU 
6074/MJwRITE 



1768/C,W 



194Q'BAI 
1997/B* 

2324/B* 
2431/8* 



i77i/u 



1941/BAL 
2D05/tt* 
23#0/tJ* 
2439/b* 



lb 





194R/BAL 


23fe*»EGU 




F?TA 










195I7/8AU 


*61*pFGU 




FC10 










439S/BG 


**17»LI 




FCl5 










43S>0/BGEZ 


44gi /BG 


4423/BFZ 


FC15A 










4401/BF 


< *43?*UB 




FC80 










4413/8 


4451-PUlt 




FC30 










443K/BCS 


44«7«LI 




FC35 










44«>?*PULL 


4470/B 


4476/B 


FC40 










4408/BGE 


4468»BAL 




FC45 










4404/BL 


4474»BAL 




FF 










2')4»ECU 


4253/DATA 




FID1ADR 








317-DATA 


2474/STW' 


2541/L^ 


F!D?ADR 








31 g^DATA 


*5H/STW 


2543/Li* 


FIELOCNT 








35l9»RFS 


4743/STW 


4758/MTW 


FTLF 










601/^I0CB 


61^/MJDCB 




FILETYPF 








3j ? 0-DATA 


640/^TW 


1781/MTW 




s?4i*/STw 


2454/MTW 


5687/MTW 


FTNDC8LUMN 








3499/BAi 


3517/BAl 


3546/BAL 




3640/BAL 


438^-EQU 




FlMDMATCN 








?8:l7/BAU 


4434/BAL 


4487*EGU 



443i«LI 



4776/MTW 



1838/MTfc 
5760/MTW 

3B69/BAL 



4806/MT^ 



2061/STW 

5831/MTW 

3585/BAL 



48Q9/MTW 



2413/MTW 
5838/STW 

36Q3/BAL 



4852/MTVi 

2426/STW 
3625/^AL 



3l9?/B 

FlRST*F:CMNn 

dZQmZQV 

FIPST*MCMND 

221 *EGU 

FlPST$RSCMND 

8<??-E0U 

FIPSTFR8M 

3j>;5.PATA 

FIRSTSET 

32>?«RE$ 

?84?/LW 
3424/U 
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FMIOA 

FMIOB 

FMlS 

FM?0 

FM?OA 

FM30 

FNDTBLl 

FNDTBLP 

FNDTYP 

FisDSO 
FND30 



4495/bl.e 

4503-CB 

450*-AI 

445)7/6 

450<*/8F 

452>?.AI 

45211 /BfZ 

282'0/EXU 

?85i?/EXU 

p8j7»BAl 

28j 1«CW 



322?. EGU 

1834/CI 
135«/CI 

*83*/CI 
«48o/STW 

1901/STW 
^191/STW 
3463/ST* 

4507/BLE 
4526/BNE 
45l?»lCI 

4527/BDR 

*531»LW 

2880*EGU 

288**EQU 

453P/CI 

2848/B 



3688/B 



1567/CI 



2493/STW 

2797/STW 

3207/L^ 
36*0/LW 



1840/CI 



2499/U 

2798/ST* 
3217/ST* 
3687/ST^ 



2K48/LM 

281S/STW 

3glg/LW 

3700/L^ 



2&29/LW 

3280/STW 

3740'LW 



2836/Ww 

3404/yrw 

3754/U 





?8J?4«BaL 


«J881/B 




FNQ32 










2889-lW 


*88?/B 




FND35 










?836*Lw 


2883/B 




FND4C 










?81?/BCS 


SS2R/B 


2S32/B 


FND5C 










?8!i4/BG 


284*/BE 


2852-EXU 


FfMOAC 










J?8!5A*LW 


2887/B 




FND6B 










?8<i7«Cl 


£88ft/8 


2889/B 


FND65A 










28?57/BeZ 


£869«»BAL 




FND70 










281J?/6E 


«f87K*BAL 




FRSTCLMN 








381-RES 


*8iA/U 


3268/U 


GEN4 


18ft»C6M 






GfT»C»LmPATR 








1*21.EQU 


157P/B 


16**/B 


GETilNCREMEM 








1109-EQU 


12*3/B 


1*99/B 


QET«SEOtINCR 








109*-EQU 


118P/NXTPRM 


1*57/8 


GeTFILEID 






GcrTlsjerV 


io*u/bal 

TttrPDflR 


X154/BAL 


1179/BaL 


w r i l^fe, A 


381.9/B 


3947»EQU 


3996/B 


6ETNEXT$FINJSH 








39«8««EQU 


*009/B 


*102/B 


GETNEXTNAME 








193/CNAME 


*9l*-EQU 




getnextparam 








19*/CNAME 


*05K*EGU 
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28*8»LW 
2877/B 



3327/LW 



1196/BAL 
*081/BQl 
*138/B 



*39i/LW 



**05/Cw 



4611/STW 



1P24/8AL 



*?30/BGE 



1260/BAL 



*2**/B 



3810-fcGU 



GF*PUSH*SUBR 

GFiO 

385H/NXTNAM 

GFl5 

3838/NXTNAM 

C5F1S 

3843/B 

«F£0 

38!5P/NXTNAM 

GF30 

3833/B 

GF5 

38l#»U 
GNTBLl 

2083/CB 

BNTBLlSZ 

eoat/Li 

QNTBL? 

3939/CB 

gntblpsz 

3938/LI 
QlsiTYTBLi 

400K/IB 
GNIO 

3930-CLM 

GNPg 

39!5^/8L 
GN30 

3931/611 

GN35 

3943/BG 
GN^5 

3993/BC 
GN50 

3983/BF 
GPTBL 



1* 



385D/BAU 

3837-NXTNAM 
3847-LB 
3854/NXTNAM 
385ft/NXTKAM 

^870/NXTnAM 

38^9/BG 

S947/C8 

*945/LI 

*03<n-EGU 

*04A-EQU 

*024*EGU 

397D/BNE 

396D»STW 

3933/BIL 

3974.11 

^OCO-SLS 



3866/BaL 



3861-NXTNAM 

3857/NXTNAM 

3871/NXTNAM 

3865/BG 

3922/CB 

3921/11 

40^6/EQU 



3936/Bll 



3893-EQU 



3876*LI 

3872/nXTnAM 

4013*£QU 
40t9»EGU 



39<fQ/BE 



3882-STW 



4019/EQU 



3965-STB 
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4066/CB 


*24**EQU 


4256/EQU 




GPTBLSZ 










406?/L! 


*25*»EGU 






6PTVTBL 










4100/LB 


*261»EGU 






QP10 












407?/BIt 


*08«i«»STB 


4091/BTL 


4094/BlL 


GP20 


4Q67/BE 


^10n«LB 






GP30 












4075/BF 


MOA-LB 


4114/B 




GP30A 


M!L2«STB 


*12M/BE 






OP 35 


41ILI/BE 


*ll»»LB 






GP4O 


4C<J6/B 


M27-U 






GP43 


4133/BE* 


M4P»BAl 






GP45 


4109/BG 


♦U8-BAL 






GP50 












407C/BIL 


*07?/BE 


4154*U 




epgp 


Mfil*CLM 


M7*/B 






6P52A 












416P/BTU 


4167»MI 


4214/BIL 




GP53 












41fcf/B 


M7A«LB 


4186/BGEZ 


4218/B 


GP53A 












41"M/BGE 


^187»BAL 


4216/BNE 




GP55 


41»1/BBU 


*193«CI 






GPfsO 












U64/BNE 


M94/BE 


420OC! 




GP63 


4201/BE 


*22?*CI 







GP66 

4203/BNE 

hfxchap 

277-TfXT 

IlDELETE 

19<>9/BaL 

IlDELETEOt 

348.9/BL4 
IlDELETEOH 

3491 -LB 
I ir&LLBW*BY 

1971/BAL 
I J JUMP 

1 977/8 AL 
IlLNK 

113»ECU 

19?4f/BAL 
1981/8AL 
353#/B# 
3S86/BCS# 

3633/B* 

3731/B* 
IlNfltCMANGF 

1978/BAL 
M3VERWR$EXTEND 

1970/BaL 

I isverwpitf 

1973/BAL 
IJPRECEDEUPY 

1974/BaL 
I|REVERSE»BPFLAG 

1979/BAL 
I! SET 

1968/BaL 

USHIFTSLEFT 

197P/BAL 

isshift*ri:ght 



2Q 



4237»LI 
5088/LB 

3484«EGU 

3493/BNE 

3494/BDR 

3545»EGU 

3677. EGU 

1968/BAL 

1975/BAL 

198P/BAL 

3547/BCS# 

359K/B* 

3641 /BCS* 

374P/B* 

3709-EQU 

351R.EQU 
3584»EGU 
360P»EGU 
4727-EGU 
4387. EGU 
■*567*EGU 



5C91/LB 



3498-EGU 



1969/BAL 

1976/BAL 

3417/B# 

356Q/B* 

36Q4/BCS* 

3670/8# 

3749/8* 



5097/LB 



1970/BAL 

1977/BAL 

3500/BCS# 

3568/STW 

36J6/B* 

3694/B* 

3753/BEZ* 



5101/LB 



1971/3AL 

197I/8AL 

3508/B* 

3570/8CS# 

3624/STW 

370g/8* 

3758/B* 



1972/BAL 

1979/BAL 

3516/STW 

3574/BE2# 

3626/BCS* 

37i4'B# 



1973/BAL 

198Q/BAL 

3518/fc>CS# 

3577/b# 

3&30/$LZ* 
3720/W* 



197F/BAI 
IlSUBSTITUTF 

1976/BAL 
I !TS»CMND*MMR 

2c!3*EQU 
ISTYs*CMND$NMR 

22'4-EGU 

IITVPE 

19S5/8AI 

MTYPF*SUP«SEQ 

19SI0/BAU 
I 1TYP£X 

19SP/BAL 
ICBRCHTBL 

9*9/EXU 
ICNAMETBL 

937/CW 

icnmrtbl 

947/LB 
ICS10 

910/NXTPRM 

ICS2C 

93F/BE 
ICSSO 

917/NXTPRM 

ICS90 

995/BE 

ICTBLSZ 

935/LI 
ILQL*SEMICBL6Nj 

761 -EGU 
1203/NXTPPM 
l^gA/NXTPRM 

ILGUSEQ2 

10539/NXTRRM 

IN0UT 

603/* J PCS 



3623»EGU 

3639-EQU 

162K/LI 

162K/LI 

373*,£GU 

374K-EGU 

3751 •ftGU 

KHP-EGU 

101R*EQU 

102A»EGU 

93B«LI 
9*6*LI 
955»»BAL 
999/BE 

1024-EQU 

107P/NXTPRM 
1231/NXTPRM 
143P/NXTPRM 

1124/BEZ 



2i 



1024/EGU 



959/B 



ioo7*e 



1089/NXTPRM 
126#/NXTPRM 

1438/NXTPRM 

1132-EGU 



1112/NXTPRH 
1P79/NXTPRM 
1533/NXTPRM 

1299/NXTPrM 



1127/NXTPRM 
1315/NXTPRM 

1579/NXTPRM 

1513/NXTPRM 



1183/NXTPRM 
1361/NXTPRM 

3825/NXTNAM 

1562/NXTPRM 



Zd 



INSMSG 


2972/DATA 


«98P»TEXTC 












INS10 


29:i*/BEZ 


292*»BAL 












INS2C 


?933«B 


896A/BL 












IN535 


29H6/BLE 


296P»BAL 












INS38 


?9<i8/BlE 


*971*BAL 












INS^O 


P9M/6E 


897a«E0U 












INS50 


2937/EXU 


*97*»LI 












iNTFLAGl 
















5qP»DATA 


697/STW 


1685/LW 


1709/LW 


i72caw 


2200'STW 


2226/STW 




?5<»1/STW 


8844/STW 


3Q66/STW 


3429/STW 


3457/STK 


500S/STW 


501V*»TW 


INTFLaG? 
















5(}3»DATA 


698/STW 


1727/LW 


2201/STW 


2227/STW 


2562'STW 


3Q67/3TW 


JNTG 


















18?»E0U 


740/NXTPRM 


924/LI 


956/LI 


976/NXTPRM 


977/11 






10<?6/NXTPRM 


Xlift/NXTPRM 


1206/NXTPRM 


1?34/NXTPRM 


1297/NXTPRM 


1311/NXTPRM 


131S/UI 




1340/NXTPRM 


1371/NXTPRM 


1372/Lt 


1379/NXTPRM 


1398/NXTPRM 


H27/NXTPRM 


1*28/U 




143S/NXTPRM 


1471/NxTPRM 


1487/NxTPRM 


15U/NXTPRM 


152S/NXTPRM 


1560/NXTPRM 






16()7/KXTPRM 


16U/NXTPRM 


424Q/L! 










I8ERRC6D 
















428/DATA 


*3n»TEXT 


5Q89/ST8 


5Q93/STB 


5099/STB 


5102/STB 




I9ERRMSG 
















<f2*«DATA 


42R/DATA 


5104/DATA 










sJSCCBUF 
















79/R£F 


S57*/LB 


5580/tB 


5591/LB 








getccARs 
















fi3/REF 


b57R/LB 


5582/LB 










JMPlO 


3679/BE4 


*69?*BAl 












^MPtS 


36K6/BCS 


369ft*BAL 













KBUF 



2** 





32!*. R£S 


546K/MIREAD 


5645/STW 


5647/STB 


6076/MiWRlTE 


6109/MIWRlTE 






6139/H*WRITe 














KpY 


















SOOO/MlDCLREC 


bU7/MSDELREC 


5465/M8READ 


6076/MJWRITE 


6109/MJWRITE 


6139/MJWRITE 




*FYFD 


603/MIDCB 


617/HJDCB 












*EYM 
















Kl 


4C*/MlOCB 


620/MiDCB 












263*0aTA 


6Q34/6R 












261*DATA 


3729/E8R 












^10 


2*>?«0aTA 


*90A/DW 












1767/U 


1777/LW 


2193/CW 


2221/CW 


2481/UW 


25oi'CW 


2551/CW 




2583/U 


8731 /CW 


28U/CW 


3038/Cw 


3053/CW 


3189/CW 


3215/CW 




328*/CW 


3459/CW 


3818/LT 


4170/CW 


4990/CW 


5305/LW 


5307/uw 




5513/LW 














lASTCLMN 
















32!B-*ES 


*27rt/LW 


3334/Cfo 


3339/LW 


3529/0 


44Q7/CW 


449Q/LW 




4612/STW 














LASTFR8M 
















3!>6»RES 


*48?/STto 


2496/STW 


2503/C* 


2553/CW 


2556/SW 


2593/bTW 




3060/STW 


3069/X* 


3C71/X1* 


3123/L^ 








LASTKEY 
















327-DATA 


644/STW 


1759/STW 


5117/MlDELREC 


543B/LW 


5519/STW 


5525/la 




56!s«?/STW 














lASTSET 
















32*«"*ES 


2801 /STW 


2813/CW 


2845/CW 


326*/STW 


3395/STW 


3406/(«W 




342P5/CW 


3*61 /CW 












LCIETTERS 
















296-DaTA 


493R/CLM 


4C77/CL* 


4090/CLM 








LETTERS 
















294*DATA 


4930/CL* 


4f080/CLM 


4093/CLK 








IF 

















LINK1 
LNK 



130*E0U 
4(Hg/DATA 

48*/DaTA 

103-EGU 
$«5£/8aL 

784/BAL 
9J?S/BAl 

iooi/Bai 

1QH6/BAU 
llKl/BAl 
1180/BAL 
121.3/BAl 
1245/BAl 
125J3/BAL 
1337/BAL 
135J4/BAL 
U3A/BAL 
1*7*/BaI 
l5j>/BAl 
1363/BaU 

1630/BAL 
1676/BAU 
17^3/BAl 
i84*/BAl 
2029/BAl 
2Q5>9/8aI 
P177/BAI 
222'3/BAl. 
?2!i3/BAt 
23g!C)/BAL 
333?/BaI 

2422/BAL 
2500/BAU 
2544/BaU 
255»0/BaU 



14K»EQU 
^251 /DATA 

493«DATA 

19R/BAL 

661/LI 

727/BAL 

929/BAl 

1064/BAt 

liQO/BAL 

1153/BAL 
U93/BAL 
12l*/BAL 
1257/BAL 
1295/BAL 
1346/BAl 
X396/BAL 
Uta/BAl 
X483/BAL 
1519/BAl 
1569/BAl 

1637/BAL 
168«/BAL 
1748/BAl 
19Q2/BAI 
2056/BAL 
S103/BAI 
^179/BAl 
223P/BAL 
2259/BAl 
if32i/8AL 
*341/BAl 

K43S/BAL 
*5o6/BAL 
854*/BAl 
^594/BAL 



169-11 
5935/L? 



441/BaI 
662/Al 

750/BAL 
94Q/BAL 
1066/BAL 
1105/BAL 
1154/BAL 
U95/BAL 
122^/BAl 
1259/BAL 
1300/BAt 
1350/BAl 
1401/BaL 
I454/BAL 
1490/BAl 
1527/BAl 
1571/BAl 

1638/BAL 
1692/BAl 
1751/BaL 
1903/BAt 
2058/BAL 
2107/BaL 
2180/BaL 
2236/BAL 
2298/BAl 
2322/BAt 
2388/BAL 
2443/BAL 
2512/BAL 
2549/BaL 
2595/BaL 



l98»BAL 
5988/LI 



447/BAL 
663/SIS 

764/BAL 
953/BAl 
1070/BAL 
1118/BAL 
1156/BAl 
H96/BAL 
1P26/BAL 
1260/BAl 
1305/BAL 
1354/BAl 
l^oS/BAL 
H56/BAL 
1494/BAL 
1531/BAL 
1577/BAl 

1639/BAL 
1712/BAL 
1770/BAL 

1908/BAU 
2070/BAL 

2120/BAl 
2184/BAL 
2P37/BAL 
2303/BAL 
2328/BAL 
2392/BAl 
2444/BAi 
2523/8AL 
2558/BAU 
2g98/BAL 



S3S-EQU 



458/BAL 
664/STW 

90S/BAL 
957/BAL 
1081/BAL 
1125/8AL 
1166/BAL 
1198/BAt 
1P38/8AL 
1262/BAL 
1313/BAL 
1357/BAL 
1410/8AL 
H67/BAL 
U98/8AL 
1538/8AL 
1590/8AL 

1642/8AL 
17U/BAL 
1773/BAL 
1914/BAl 
2075/BAL 
2122/BAL 
2192/BAU 
2242/3AL 
2311/8AL 
2330/BAl 
2397/8AL 
2456/8AL 
2525/BAL 
2569/8AL 
2^00/BAL 



417/QEN4 



524/PZE* 
667'STB 

908/BAL 
967/BAL 

1083/BAL 

1133/BAL 

U73/BAL 

1210/BAL 

1239/BAL 

i275 / BAL 

1320/ffAu 

1373/BAL 

1418/BAL 

1469/BAL 

1507/BAL 

X551/BAL 

i604'BAL 

i655/B# 

1723/BAL 

1780/BAL 

2009/BAL 

2093'BAl 

2131/8AL 

2198'bai 

2243/BAt 
2313/BAL 
2333/BAL 
2403'BAL 
2468/BAL 
2530/BAL 
2574'BAL 
2601/BAL 



2^ 

417/MEN4 



642/ttAL 

672/SW 

919/ttAL 
978/tiAU 

1084/bAU 
1142/WAL 
1179/bAL 
1211/BAl 
1841/ttAL 
1277/ttAL 
1331/bAu 
1380/^AU 
1429/0AL 
1474/»AL 
15O9/0AL 
1557/bAL 
I6l3/**AU 
1662/tt* 

1738/WAL 
1785/tJAL 

2023/tJAU 
2098/BAL 

2170/BAl 
2220/bAL 

2244/0AL 
2318/bAL 
2337/dAL 
2415/tfAl 
2475/WAt 
2542/WAU 
2589/ttAL 
2605/BAL 



26()*/BAL 
2730/BAU 
2807/BAt 
2«eJ0/BAL 
2939/BaL 
30A?/8Al 
3082/BaL 

3110/BAL 

3153/BAL 
3283/BaL 
32**?/£Al 
3320/BaL 
341.6/BAt 
3475/BaI 
352?/6aL 
3569/BAL 
3603/BAL 
3632/BaL 
36«1/BAl 
3748/BAL 
3350/BAL 
40(5 1/LW* 
4297/B 

4434/BAU 

4513/B 

4620/8 

4675/BAL 

4877/BaL 

494?/B 

49<:jq/STB 
5Q40/B 
5130/PUSH 
5233/B 

538C/B 

5408/CB 

5420/8 



£6g*/BAL 
273R/8AL 
2817/BAt 
«!86l/BAl 
*957/BAL 
3044/BAl 
a0g4/BAL 

311A/BAL 
3158/BAL 
3226/BAL 
3293/BAL 
3354/B 

3*27/BAL 

3496/BAl 

3537/BAL 

3575/BAl 

36Q9/BAL 

3640/BAL 

368K/BAL 

375B/BAI 

3866/BAL 

*14?/BAL 

*307/BL* 

^451 /PULL 

*53?/CI 

462P/BAL 

*68*/BAL 

^927/B 

495i /B 

501P/BAL 
&044/BAL 

&131/LIN 
^243/B 
5393/B 
5*11 /A I 

b43p/PUSH 
S>45ft/PUSH 



2657/BAL 
2744/BAL 
2824/BaL 
2869/BAL 
2962/BaL 
3C^7/BAL 
3089/BaL 

3124/BAL 

3164/BAL 

3231/BAL 

3295/BaL 

3369/B 

3442/BAL 

3499/BAL 

3546/BAL 

3576/8AL 

3611/BAL 

3651/BAL 

3692/BaL 

3790/B 

3889/B 

4148/BAL 

4309/B 

4453/B 
4537/B 

4624/LT 
471Q/B 
4934/PUSH 
4959/B 

502Q/BaL 
5065/BAL 
5134/8AL 
5268/BAL 
5400/PUSH 

5412/CI 

5433/BAL 

5457/BAL 



2667/BAL 
2750/BAL 
2830/BAL 
2875/BAL 
3963/BAL 
3062/BAL 
3093/8AL 

3128/8AL 
3186/BAL 
3237/BAL 
330^/BAL 
3375/8GE 

3443/BAt 

350^/BAL 

35!5*/BAL 

3585/BAL 

3614/BAL 

3659/BAL 

3698/BAL 

3800/BE 

3903/B 

4187/BAL 

4331/B 

4462/PULL 
4547/PUSM 

4625/ST* 

4740/BQE 

4935/LI 

4963/B 

5021/BAL 

5070/B 

5186/PULL 

5?72/B 

5402/BAL 

5414/lI 

5437/PULL 

5458/BAL 



2696/BAL 

2756/BAL 

2831/BAL 

2926/BAL 

2969/BAL 

3064/BAL 

3097/BAL 

3132/BAl 

3187/BAL 

3266/8AL 

330S/8AL 

3397/8AL 

3455/BAt 

3506/BAL 

3556/BAL 

3590/BAt 

3615/BAL 

3665/BAL 

3701/8AL 

3g0i/8AL 

3948/LW 

4231/9AL 

4366/8 

4464/B 

4565/PULL 

4626/STW 

4752/BAt 

4938/STW 

4986/8AL 

5026/8 

5080/8 

5188/B 

5285/8 

5403/LW 

5415/ST*J 

5439/B 

5466/8AL 



2728/BAL 
2773/BAL 
2837/BAL 
2928/BAL 
297i^BAL 
3070/BAL 
3098/BAL 

3148/BAl 

3208/BAL 

3278/BAL 

33Q6/8AL 

3402/BAL 

3458/BA L 

3SQ7/BAL 

3558/BAL 

3593/BAi 

3625/BAL 

3668/BAL 

37i8/BAL 

3818/LI 

3990/L8* 

4283/QR 

4387/puSH 

4468/BAL 

4566/B 

4636/BEZ 

^821/B 

4939/BDR 

4997/BAL 

5034/BAL 

5103/BAL 

5218/BAL 

5358/B 

5405/LW 

S416/STB 

5443/BAL 

5467/PULL 



2$ 
2729/bAt, 

2806/^AL 
2847/bAL 
2934/^AL 
3036/^AL 
3072/»AL 
3104/«AL 

3151/BAU 

321V&AI 

3291/WAL 

3314/BAL 

3408/«AL 

3468/BAL 

35i7/BAL 

3559/BAL 

3594/BAu 

3631/BAL 

3669/bAL 

3741/BAL 

3820/bAL 

3992/%B» 

4285/L* 

4424/bAL 

4474/t*AL 

4578/bAL 

4662/B 

4825/bAL 

4941/^ULL 

4998/LJ 

5035/^AL 

5U8/b 

5227/b 

5376/bAL 

5406/AI 

5^19/PuLL 
5^44/HULL 
5469/b 



IP 

LPAR 

M$EI 

Mice 

MJTRTN 
MlUC 



5477/PuUL 

552??/8AU 

56 J. 3/8 

56559/AI 

R674/BAL 

57(55/8 

58**4/bAl 

5877/ p ULL 

5906/Lw 

5993/LB* 

60g6/Ll* 

6071/BAL 

6104/BAt 

6136/&AL 

237. EQU 
187-EOU 

«1/REF 

ft?/RFF 
!757»MlTRTN 



SIO/R^F 
2636/MI0EVICE 
5777/LB 
MASTEREXECUTIVE 

743/NXTPRM 

1113/MXTPRM 

1.36P/NXTPPM 

1439/NXTPRM 

MASTERPAR8FR 

443/B 
1003/B 

177*/* 



S479/B 

b52*/8AL 

S637/B 

b660/STW 

b675/PULl 

b7l«5/BAl 

S835/BAL 

^878/B 

59^p/PulL 

&99*/CB« 

feOgft/BAL 

O08n/PUtL 

*113/PULL 

6UP/PUU 

1724/GEN4 

^824/NXTNAM 

609/EGU 

624/EQU 

1791 /B 

515/GgN 
*637/tfJDEV!CE 
b787/LB 

97H/NXTPRM 
U2A/NXTPRM 

1369/NXTPRM 
1534/NXTPRM 

451/BNEZ 
113B/B 
178P/BQZ 



5489/PySH 

5541/PUUU 

5648/B 

5662/CB 

5676/B 

5761/BLZ 

5839/PULL 

5881/BaL 

5943/B 

6001/CB# 

6056/BAL 

6C82/B 

6115/8 

6143/B 

3119/QFN4 



1797/B 

517/QpN 
2638/MiDEVTCF 



981/NXTPRfi 
1184/NXTPRM 

1377/NXTPRM 
1580/NXTPRM 

454/B 
1175/B 
1786/B 



5490/BAL 
5542/B 

5653/PUSH 

5665/CB 

5688/BLZ 

5763/BEZ 

5840/B 
B895/8LZ 

5975/PUSH 

6011/BAl 

6058/PULL 

6090/PULL 

6123/PULL 



4017/DATA 



522/GE* 
5609/LW 



1011/NXTPRr 
1865/NXTPRM 
1383/NXTPRM 
1594/NXTPRM 

693«EQU 
1247/8 
1795/LI 



5497/8AL 

5586/STW 

5656/UW 

5667/BAL 

5690/BNEZ 

5769/8 

5849/PUSH 

5896/PUSH 

5977/UW 

6014/PULL 

6059/B 

6092/8 

6125/B 



B27/3EN 
5707/LB 



1073/NXTPRM 
1280/NXTPRM 

U2B/NXTPRM 
1634/NXTPRM 

752/8 

1322/8 
1850/B 



5506/PULt 

5587/BAL 

5657/SLS 

5670/STB 

5691/PUSH 

5832/BlZ 

5867/BAL 

5900/LW 

5991/LW 
6015/B 
6069/PUSH 
6102/PUSH 

6134/PUSH 



2635/MlOEVtCE 
5766/LB 



1090/NXTPRM 
1316/NXTPRM 

1433/NXTPRM 
1811*EQU 

766/B 

1445/B 
1910/B 



26 
5507/p 

5590/Ulrf 

5658/£?TW 

5671/^TW 

57C4/KULL 

5833/PUSH 

5875/ttAL 

5905/PUSH 

5991/Uw 

6025/PUSH 

6070/tiAL, 

6103/ttAl 

6135/bAL 



5770/UB 



942/b 
l54Q/b 
1916/* 



1926/8 


1931/B 


3200/8 


3227/B 


3803/6 


*H*/B 


MAXCLMM 




216-EGU 


3QS/RES 


P7U/CI 


*72n/CI 


4351 /U 


♦373/L! 


4724/Ct 


4739/CI 


541.9/C! 


$414/11 


*A*SEQ 




35>9»PATA 


fclOi/CW 


we 




6OE0U 


69/SET 


468/08 


58R/D8 


773/081 


8JA/DS1 


?0el7/0dl 


«031 /D61 


2427/06 


£457/08 


28*3/081 


2898/08 


3267/08 


3*28/081 


4QM/D81 


*076/D8 


510S/D8 


*Hoi/oei 


5685/08 


b85o/D8 


6105/081 




HeVESEG 




1688/BAL 


X7ip/BAL 


51?9«EQU 


b52«/8AL 


M8VESTRINCI 




352>?/BAL 


355A/8AL 


MQ10 




5H0/BNE 


*U46»LI 


KQ20 




5H9/BNEZ 


&15S*l8 


M025 




5167-CH 


&173/B 


MQ30 




51M/BL 


&177-LI 


MQ30A 





1937/BAL 


263Q/B 


2740/B 


2746/B 


3233/8 


3412/B 


3423/8G2 


3451/8 


4150/8 


4189/8 


4233/B 


4627/B 


331/RPS 


344/RES 


530/DATA 


2091/CI 


2955/Cl 


3271/CI 


3341/CI 


3346'CI 


455Q/CI 


4559/C! 


4591/Ll 


4617/CI 


4746/Cl 


4882/LI 


4884/LI 


4892/LI 


5464/M;READ 


5495/MjREAD 


5521/MjREAD 


5560/LI 


2230/CW 


2567/CM 


2967/CW 




77/08 


246/08 


282/08 


295/D8 


599/08 


614/00 


639/08 


694/D8 


859/081 


1673/08 


1776/081 


1816/08 


2051/D8 


2072/D8 


2112/08 


2199/08 


2560/08 


2617/08 


2659/08 


2681/D8 


2907/081 


2914/D81 


2936/08 


2975/08 


3456/081 


3851/081 


3867/081 


3883/D81 


4089/08 


4252/081 


4265/081 


b002/D8 


5459/081 


5491/081 


5563/08 


5624/08 


5857/08 


5883/081 


5927/08 


5976/D8 


1723/8AL 


1743/BAL 


3089/BAl 


3U8/BAL 


3590/8AL 


3611/BAL 


3665/3AL 


4546»EQU 


5160/BlE 









2/ 

2752/b 
3497/13 



2655/U 

4325/tI 
4638/1*1 
4935/U 



449/W8 
718/U8 
1864/P8 
2225/U8 
2771/U81 
3065/P8 
3934/P8 
5013/P8J 
5673/UQ1 
6072/U81 



3l24/fc*AL 



2* 





5179-lB 


5184/8DR 


HRGlO 








P488/6NE 


*499»li* 


MRG13 


23:30»BAt 




MRG14 








2531 -L! 


2584/8 


MRQ15 








2534/BEZ 


fc5M»LW 


MRQ17 


?54*«lto 




MRG2C 








25B1-CW 


257R/B 


MRGpg 








?56#/BL £ 


«257?»Ci*i 


MR63C 








2513/BCS 


*578»EGU 


KRG35 


2583-LW 




MRG55 








25!5?/B6E 


<J554/BG 


MRG56 








P565/BF* 


2589-BAL 


MRQ65 








2573/BGE 


*593»ST* 


MR670 








P5CJ2/BGC 


S5Q4/BG 


*RGgC 








p*77/BCS 


^600»BAU 


MR682 








25J.4/BCS 


£6oK»BAL 


MSGO 








M7.GEN4 


65*/DATA 


MS61 








4:t8«TE*TC 


*18R/DATA 


MSG2 








4:L9«TE*TC 


224R/DATA 



2571/B 



2»>87»SW 



2598-BAU 



1677/QATA 



1752/DATA 



5868/DATA 



5876/OATA 



6012/UATA 





42o«tfxtc 


<*39*/DATA 




f*SG^ 










*21»TE*TC 


*>83*/0ATA 




MgGB 










*g?«.TE x TG 


2547/DATA 




MSG6 










4;»3.TE*TC 


885^/11 


2862/DATA 


MSQ? 










424.TPXTC 


409FS/LI 


3099/OATA 


MSGS 










45?B*TPXTC 


3*41 /LI 


3444/DaTA 


MS10 










456R.PULL 


4571 /BEZ 


4577/B 


MS£0 










4560/B6E 


^57DpAI 




MS?OA 










45fit/BGE 


*573»AI 


4576/BDR 


MSPOB 










if57B/BN£ 


457*. BAL 




MS5 










45?5««AI 


4561 /BDR 




MVO:*ECICNT 








3!i?«0ATA 


707/STW 


247Q/ST* 




309A/U 






MVEMSGl 








433«TE*TC 


408R/LI 


3092/STB 


MVEMSG2 








43B-TEXTC 


JU7/LI 


3127/STB 


HVE1C 


300P-LT 






MVEPO 










301S/&E* 


3023*l> 




*VE3C 










3053-Cto 


^073/B 




*VE35 










SCfi^/BLE 


3077»BL 





29 



5019/LI 



4sao/B 



2559/MTW 

3094/DATA 
3129/DATA 



5022/DATA 



5033/LI 



5036/yATA 



3001/STW 



3063/MTW 



3083/MTW 



3U 





8591/B 


^077/BL 


3088-1! 


3112/B 








MVE50 


















30J?6/etL 


302K/BII 


3032/BIL 


3034/BIL 


3104-8AL 






MVE53 


30!54/BE 


^liO»BAL 












HVE56 


















P553A/B 


4Q59/BGE 


3080/BGE 


31l6*Sfc 








NVE«$8 


















2599/B 


^039/BE 


3Q41/8G 


3132'BAL 








NAME 


















179-EQU 


19K/BAI 


1085/LI 


1155/LI 


1197/UI 


1225/LI 


1261/11 




381*/ N 'XTNAM 


3823/NXTNAM 


3838/NXTNAM 


3855/NXTNAH 


3862/NXTNAM 


3870/NXTNAM 


3983/11 


NCG10 


3711/Bf* 


37l«»BAL 












newcdtentry 
















90P/BAU 


919/BAL 


953/BaL 


1064/BAl 


1081/BAL 


1151/BAL 


1193/^AL 




12K7/8AL 


127IS/BAL 


1293/BaI 


1331/BAL 


1337/BAL 


1394^BAL 


1*5*/&AL 




14fc7/BAL 


1507/BAt 


1551/BAt 


1KS7/BAL 


1590/8A^ 


1604/BAu 


1613/ttAu 




1630/BAL 


*27**EQU 












NEWKgY 


6077/MJWRITE 


6lio/MH«RITE 












N9CNGFLG 
















330»DATA 


64S/STW 


1760/STW 


3205/MTW 


3713/STW 






NePRBMPT$EPT 
















S13«EQU 


<*03P/CAll 


2662/CAH 


2908/CAll 








NUM 


















131/PO 


13P/DS 


146/06 


147/SET 


148/D6 


162/06 


163/Ue 




1«»7/SET 


201/ERP9R 












NXTNAM 


15>3»CK'AME 














NXTPRM 


ict^.CNAME 














©4ABN 


544/DATA 


S213/LI 


5237-RPS 










9*ACCT 


573-RES 


&21A/L1 


5374/LT 











6*fpt 














56?»0FN 


S>2l?/STW 


521^/STW 


BP19/CA11 


537Q/STW 


5372/STW 


5377/fcAll 


B389/STW 


&390/CALI 


5636/CALl 










9*NAME 














5'M»RFS 


&21R/LI 


5373/11 










©*PASS 














S7?»RFS 


&217/U 


5375/LI 










©exio 














35<>9»CW 


3533/B 












apxpc 














3530/BGE 


4537»BAl 












9N*ABN 














S369/LI 


$384«RES 












©NEWKFY 














61^0/WjWRITE 














©pen 














PO?>^/BaL 


**2?/BAl 


2S12/BAL 


520OEQU 








BPENINIT 














5065/BAU 


5218/BAl 


5268/BaL 


S?97*ECU 


5376/8AL 






9PENNFW 














P029/BAL 


&367-EGU 












BPEN1 














?170/BAU 


^259/BAL 


2303/BAL 


2475/BAL 


2542/BAL 


5206»EQU 




©P£N2 














?i?7/BAL 


8253/BAL 


2544/BaL 


5258»EQU 








eptNs 














?At\n/&Al 


*29*/BAL 


5253-PUSH 










9UT 














61?/^!PCB 














»?$ABN 














5*1/DATA 


$26?/lI 


5276-RES 










©J?tACCT 














58R-«ES 


b063/L! 


5266/LI 










OgtrPT 














579-6EN 


&059/STW 


5C61/STW 


5066/CAll 


5261/STW 


5263/STW 


5269/ULl 


MSl/ST* 


b28?/CAll 












B8SNAMC 















3£ 



583-RES 


»06P/LI 


5265/11 










0?$PASS 














5«7»RES 


&064/U 


5267/1! 










parambuf 














331 -RPS 


74R/l> 


915/U 


921/Xi^ 


926/STW 


936/LW 


955/AW 


9K8/STW 


1183/MTW 


1140/ST^ 


1159/LW 


116S/STW 


X167/LW 


1220/UW 


16B9/LW 


1654/STW 


1659/tW 


1660/STW 


3781/LW 


3815/lB 


3847/LB 


3863/lB 


388*/STW 


3894/LB 


3899/LH 


396B/STB 


3976/STB 


398Q/STB 


^O^B/STB 


MlP/STB 


4129/STB 


4134/STB 


4207/STW 


4225/STW 


4229/CW 


4241/ST* 














papampsn 














33?-RES 


737/STW 


1000/^TW 


3769/LW 


3774/HTW 


3951/MTW 


5913/UW 


parsejbp 














ai.B/B 


1061 «EQU 












PARSElBUILD 














81.9/B 


84*/B 


1C8Q-ECU 










parsejcm 














8*0/B 


129P»EQU 












PAPSClCftPY 














820/B 


847/B 


1150-ECU 










PARSEJCR 














81.J/B 


106P-EQU 












PARSESCT 














8M/B 


1289«EGU 












PARSEIDE 














826/B 


1330»EQU 












RARSElDELETfr 














8P1/B 


84*/B 


1255-ECU 










parsesedit 














saip/B 


849/B 


1256«EQU 










PARSE? END 














82'3/B 


85C/B 


1273-EGU 










parse ifd 














82'7/B 


X391»EQU 












PARSE SIP'S 














839/B 


X39P*EQU 












PAPSE!FT 















8S8/B X393-EQU 

parseii:cmno$intq 

740/nxtprm 913-egu 

parseiiicmndmtrg 

7^1/nxtprm 9q3.equ 
parsejin 

889/8 USP-EGU 

parsems 

830/B 1453.EQU 

PARSE UU 

843/B 1553/B 1556-EOU 

parse :md 

831/B U6R»EQU 

PARSE J MERGE 

82><*/B 851 /B 1192*EGU 

papsesmk 

83P/B 1*66»£GU 

PARSEINO 

844/B ia?4.EQU 

PARSE IRF 

S*F/B X589*EQU 

PARSEJRN 

833/8 150**EQU 

parsejpp 

S2»«?/B 1060»EGU 

parsejse 

84?/B X333/B 1336-EQU 

parsejss 

834/9 154f9»EGU 

PARSEJST 

83F/B 1550-EGU 

PARSEiTA 

817/B 1063«EQU 

PARSEJTC 

83*»/B 1603*EGU 
PARSEtTS 

8316/B 1611 -EGU 



33 



parse:tx 
parsejty 

PASS 

PATCH 
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6()4/M»DCB 



PBU05 
PBU10 
PBU20 
PBU3C 
PCM1C 
PCM20 
PC*1C 
PC93 

p cas 

PDEIO 

PDE15 

PDE2C 

POEB 

PpRIBD 

PFDIO 



1Q5J7/NXTPRM 

105JS/NXTPRM 

1117/NXTPRM 

1 H.4»E0U 

1298/NXTPRM 

13C)?/^XTPRM 

1U9/BE 

llfcl/BKE 

11??«EQU 

1341/NXTPRM 
134»/NXTPRM 
13B9/BGE 
13^0/NXTPRM 
1«3»EQU 



158**EQU 
X61P*EQU 

62P/MJDCB 

553»RES 

il39»Ll 
1104»LI 

1143/B 
X3C4-H 

i3o«3/NXTPRM 

Xi7l/BE 

1164«EQU 

122P/BNE 

1350*BAL 

1354*BAU 

136*»NXTPRM 
l346*BAl 

38?4/NXTNAM 



1320*BAl 
1179»BAL 



3839/NXTNAM 



3R54/NXTKAM 



139^/NXTPRM 
140C-/NXTPRM 
1M3/NXTPRM 
147?/NXTPRM 
l*73/NXTPRM 
148S/NXTPRM 
10H9/NXTPRM 

120A/NXTPRM 

120?/*XTPRM 

123S/NXTPRM 

1236/NXTPRM 

1230/NXTPRM 

1207/NXTPRM 

4593/BE4 

4604/BE* 

4614/BGE 



PFD15 

PFD2G 

PMD10 

PMD15 

PMDPC 

PMD25 

PME15 

PME2C 

PME30 

PME35 

PME40 

PME5 

PPlO 

PP?0 

PP25 

PR 

23*»ECU 

prmbufsz 

333. res 

38IIP/STW 
PRNlO 



1409*LI 

i*14/NXTPRM 

147*«BAl 

l*8P-lI 

1494«BAL 

149*»BAL 

121P-LI 

12l7*LI 

123Q.BAL 

1240»LI 

1245-BAl 

1211»BAL 

*60P»AI 

*6l1»STW 

46i*/BL 

^017/DATA 

923/X^i 
3989/STW 



3t? 



1443-8AL 



4618/BG 



927/STW 



4622«BAL 



1661/MTIk 



377B/AW 



3777'SW 



3779/UW 
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15'1?/NXTPRM 


1 5 1 g * L I 




PRN80 










15S?A/N'XTPRM 


1531. BAL 




PRN3G 










15i??/NXTPRM 


1523/NXTPRM 


1538* BAL 


PRBCESSCBUPAIR 








?80*/BAL 


318A/BAL 


3266/BAL 


PRBMPT*FPT 








509. ECU 


695/CAL1 




PRBMPT2$FPT 








511-EQU 


2899/CALl 




PRS10 










74A/BE 


75A»LB 




PSS1C 










1561/NXTPRM 


1567.CI 




PSS2C 










156^/BGE 


157A*LI 




PTVlO 










1608/NXTPRM 


1617/NXTPRM 


1638*BaL 


PTY15 










1609/NXTPRM 


161A/NXTPRM 


1639-BAL 


PTY5 










1607/NXTPRM 


X616/NXTPRM 


1637-BAL 


PULL 


l*?«nCNAME 






PURGE 


l!i««CNAME 






PUSH 


12!7.CN'AME 






PUTCR 










R400-PUSH 


6Q71/BAL 


6104/BaL 


PUTCR? 








P4 


B4CH*/8NEZ 


*H09/BE 


5419- PUL 


r 1 


1G1-EGU 


75*/LB 


9Q#/L! 




947/LB 


9<*R/STB 


956/L! 




U0*/LI 


112P/LI 


1139/LI 



3397/BAL 



6136/8AL 



907/LI 

966/LI 

1140/STW 



4R88-EQU 



9U/L! 
977/LI 

1141/LI 



924/LI 
1069/L! 
1155/L! 



928/UI 
1D85/U 
1165/LI 



1197/11 
1312/Lt 
14«?/L! 
H4.1/LI 

1900/LW 

?0?$7/Xto 
21415/AI 
2309/LW 

2279/Lfo* 
22<5?/LW* 
2390/lB 
2479/Ll 

8511/STW 

25550/U 

2$20/AW 

879^/UW 
2964/AW 

3037/XW 
306JVXW 
3144/um 
328P/LN 
342S/CH 
3449/STW 

3532/A! 
36^7/AW 
3740/Ll* 
377P/IB 

37«8/STW# 

3917/LB 
3948/LW 

3967/LB 
4061 /LB 

4Q«0/CL M 

4IO6/LB 

4163/C! 



X21P/LI 

135S/LW 

151H/LI 

I685/LW 

1901 /STto 

2059/LW 

* 1 4" /L8 

^227/STW 

«J269/L8 

«J2g?/LB 

2296/LB 
2391/AW 
8480/STW 

249P/LW* 

25H/LW 
S562/STW 

*62?/L* 

2797/STW 

S96S/CW 

304*/XW 
3071 /XW 

3l5o/L»* 
3290/LI 
3429/STW 
3457/STW 

354R/AW 

3663/LW 

3747/LI 

3773/STB 

3789/PULL 

39H/C! 
3949/CW 

3969/CI 
*063/CI 
408B/STB 

4110/CI 
M6H/AI 



1217/LI 
1356/LI 
1567/Cl 
1709/LW 

2025/tB 
2100/AW 
2167/LB 
2229/AW 
227Q/AW 
2283/AW 
2297/Aw 
242Q/LB 
2481/Lw 

2494/AI 

2527/STW 

2566/Afc 

2622/LW* 

2816/LW 
2967/CW 

3Q48/LW 

3078/AW 

3184/tW 

3301/LW 

3435/LW 

3501/AVm 

3557/Aw 

3667/AW 

3754/LW 

3775/AWi 

3894/LB 

3922/CB 

3952/AND 

3975/L! 

4066/CB 

4G87/LB 

4112/ST8 

4169/AW 



1225/LI 

1372/LI 

1570/LZ 

1720/LW 

2026/AW 

2101/CN 

2168/Ak 

2230/CW 

2271/LB* 

2284/LB* 

2300/LB 
2421/A* 
2482/ST* 
2495/LW* 

2533/LB 
2567/CW 

2fe24/Cw 

2829/LW 

3009/LW 

3049/SW 

3079/CW 

3188/STW 

3303/LI 

3436/CI 

3505/SW 

3592/AW 

368Q/L* 

3756/LI 

3776/STB 

3895/AI 

3930/CLi^ 

3953/CI 

3976/ST8 

4069/CL* 
4090/CLM 
4U8/LB 
4172/LB 



1240/LI 
14Q9/LI 
1576/LI 
1727/L^ 
2028/LW 
213S/UB 
217S/LB 
2251/LB 
2274/AW 
2287/AW 

2301/AW 
2472/LB 
248S/LB 
2499/LW 
2541/LW 
2572/CW 

2649/LW 

2836/LW 

3025/CLM 

3057/AW 

3096/LW 
3207/LW 

3392/LW 

3446/L! 

35524/AW 

3612/AW 
3684/LW 
3757/STW 
3777/SW 

389fr/SLS 
3932/CLM 
3955/STW 

3983/Ll 
4071/CI 

4Q93/CLM 

4120/CI 

4178/LB 



1261/L! 
1417/LI 
1626/CI 

1732/LB 

2033/L! 
2136/AW 

2176/AW 
2252/AW 
2275/LB* 
2288/LB* 

2335/tB 
2473/AW 
2487/C! 
2509/LB 
2543/LW 
2587/SW 
2733/LW 

2858/tW 

3029/LW 
3058'CW 
3116/SW 

3218/LW 

3405/STW 

3447/STW 

3529/CW 

3613/AW 

3687/STW 

3768/PUSH 

3778/AW 

3897/AW 

3935/CLM 

3960/STW 

3992/CB 
4074/CI 
4095/LI 
4122'H 
4180/CLM 



3/ 

13Q4/L! 
1428/LI 
1629/Lw 
1733/STB 

2040/LW 
214Q/$LS 

2197/LW 

2256/L8 

2278/Aw 

2291/AIm 

2336/A^ 

2474/i»TW 

2490/LB 

2510/AW 

2548/LW 

2619/LB 

2768/LW 

2912/LW 

3035/AW 

3Q67/&TW 

3123/LW 

3261/LW 

342^/LW 

3448/l>TW 

3531/^TB 

3646/UW 

3700/Lw 

3770/STB 

3782/^TW* 

3902/»DR 

3939/CB 

3965/^TB 

4008/UB 

4077/LLM 

4100/LB 

4I6I/CLM 
4183/AI 



p? 



4J.84/AW 

4340/11 

43H«^/ANiD 

*38*/ p USH 

43?5?/SW 

44O3/LW 

4445/AI 

45!50/C! 

4611/STW 

4688/SW 

473^/CI 

4871/LW 
492*/PUlL 
501^/tW 
5148/CB 

5S1P/U 

5533/AI 

572'8/STfcJ 

58!$#/LI 

590*/LW 

5939/STW 

6034/9R 

10P-EGU 
2138/lB 
2493/STW 
P804/AW 
3U7/U 

3*M/LI 
352M/AW 

35M/LB* 
3666/LB* 
3877/PUSM 
3917/LB 

4059/PuSh 
41C7/AI 



4 20P/CI 

4279/PUSH 

*29ft/Al 

*325/CI 

*35K/AI 

*404/AI 

*494/CW 
*557/STB 

*6!3/CW 
*697/L8 
474R/AW 
49Q3/PUSH 

4 976/PySH 

S017/CI 

bl5n/AI 

S32R/LB* 

5>519/STN 

&539/STB 

S74A/STB 

S86R/BQR 

^919/SLS 

b94p/PULL 

603^/STH 

1687/Ll 
S139/AW 

*49r/LW 

*859/U 

*120/AW 

3<*91 /LB 

3523/LB* 

36iO/X*j 

3829/L1 

388R/PUU 

39l*/Al 

^06n/tw 

4 l0*/C« 



4211/LB 

4280/SLS 

429i/STw 

4329/PURGE 

4359/CB 

4405/CW 

4503/CB 
4558/Af 

4615/CI 
4699/AI 
4746/Cl 
4905/l> 
4995/LW 

5Q24/PULL 

5167/CW 

5328/AW 

5525/lW 

554Q/PULL 

5781/1! 

5869/LI 

5920/LW 

5949/LB* 

6038/LW 

1711/LI 
2141/SLS 

2496/STW 

3CU/LW 

3263/U 

3492/CI 

3548/AW 

3647/AW 

3830/PUSH 

3886/STW 

3967/LB 

4061/LB 

4118/LB 



4213/CLM 

4281/8R 

4292/lI 

4336/CW 

4364/PUIL 

4407/CW 

4505/AI 

4559/CI 

4673/PUSM 

4709/PULL 

4756/A1* 

4906/LI 

4996/AI 

So3Q/Lfc 

5309/LB# 

5333/AI 

5526/AND 

5645/STW 

5782/CB 

5884/Ll 

5928/LB 

5953/LB« 

6039/SLS 

1722/Ll 
2147/AI 

2521/LW 
3027/CL^ 
326VSTI* 
35Q1/AK 
3549/LI 
,3648/SW 
3831/PUSH 
3899/LW 
3968/AI 
4062/AI 
4119/AI 



4P15/CI 

4282/SLS 

4294/STW 

4342/CB 

4371/SW 

4437/LW 

4B06/CW 

4590/LI 

4$74/AW 

4723/Sto 

4762/UW 

4912/8DR 

5003/LW 

5031/CI 

53U/LB* 

5339/LB* 

5530/LI 

5697/LI 

5790/CB 

5896/PUSh 

5929/AI 

5962/LI 
6O4O/STW 

172B/AW 
2150/CB 
2528/STW 

3030/LW 
3286/CW 
3B02/LW 

3655/LW 

3650/Ll 

3840/LI 

3900/PUSH 

3984/AI 

4087/LB 

4137/AI 



4226/L! 

*2S3'8R 

4296/PULL 
4345/AI 

4389/LW 

4438/AI 

4518/LW 

4596/LW 

4677/SW 

4724/CI 

4764VAI* 

4918/LI 

500^/AND 

5038/PULl 

5317/AW 

5344/LB* 

5532/LB 

5698/CB 

5818/STB 

5900/LW 

5930/LB 

6032/LB 

6O54/LI 

X733/STB 
2156/CB 

2770/LW 

3088/LI 

3394/tW 

3503/LI 
3588/LB 

3658/Ll 

3841/PUSH 

3915/PUSH 

4002 / STW 

4088/AI 

4172/LB 



36 
4237/U 

*88*/ST* 

4308/STw 

4346/Cw 

439J/UW 

4444YSTW 

4531/U 
4597/AI 

4683/U 
4726/UW 
4765/AI 
4^920/tB 
5005/STW 

5318/UB* 

5517/PUSH 

5535/AI 

5727/11 

5854/tI 

B905/PUSH 

5938/bLS 

6Q33/SLS 

6055/^TB 

1734/AI 
2^92/UW 

2803/UB 

3095/LI 

3395/S>TW 

3B20/LB 

3589/Aw 

3664/UW 

3876/U 

3916/LW 

4P03/PUIL 

4106/UB 

4173/AI 



P3 



417S/IB 

4285/LW 

4296/PULL 

4409/1! 

44SJ2/SW 

4586/lB 

4613/CW 

4684/Sfo 

4707/AI 

4745/Ato 

4879/SW 

4911/A! 

499?/CW 

5132/SjW 

5170/STH 

520«/L! 
526P/LI 
B53?/UB 
5799/STB 



2566/AW 

3013/lW 

3502/LW 

36S9/LW 

4715/AW 

4879/SW 

5Q7K/IB 

5231/PUUL 

5277/lB 

53*>£/ p USH 

5474/UB 

6Qfin/PUlL 

RJC8MMENTAPV 

1963/BAl 

RfDpLETE 

1949/BAU 



4179/AI 

428ft/AI 

43?4/PU$H 

*43P/LB 

4519/LB 

4573/AI 

4617/C1 

46S3/5W 

471R/AW 

4784/AM 

4885/LW 

*9l4/STB 

&019/LI 

&133/L! 
3171/AI 

b263/ST^ 

S533/CI 

5804/LB 

2531/lJ 
*587/SW 

350B/SW 

364R/LB 

4717/AW 

4881/ST* 

b07g/PULl 

&23*/L8 

S283/PUU 

&375/LI 

&477/PULL 

&086/L8 

<*64*»eQU 

276R-EGU 



4211/LB 

4287/SLS 

4329/PURGE 

4433/AW 

452Q/AI 

4574/CB 

4619/PUIL 

4689/Aw 

4716/5W 

4785/AI 

489Q/AW 

4915/AI 

5C33/LI 

5135/U 

5181/STB 

5213/11 

5369/11 

5739/18 

5805/ST8 

2536/LB 
2793/LI 
3C19/STW 

3553/LB 
3648/Shi 

4727/SW 

4883/SW 

5094/tB 

5241/PUll 

5300/STW# 

5378/PUIL 

5489/PuSh 

6090/PULL 



4212/Af 

4288/ST8 

434J/L1 

4446/LB 

4527/BDR 

4589/PUSH 

4674/AW 

4691/LJ 

4718/LJ 
4786/STH 

4891/L* 

4920/CB 

B058/LI 

5156/STB 

5182/AI 

5214/STW 

5370/STW 

5741/STB 

6027/LI 

2537/AH 
2819/AI 
3049/S* 
3557/AW 

3657/LCW 

4759/CW 

4890/Al* 

5201/PUSN 

5253/PUSN 

53Q3/STW* 

5385/LB 

5506/PULL 

6102/PUSM 



4228/AI 

429i/STh 

4342/CB 

444I*/LB# 

4548/SLS 

4591/LI 
4677/SW 

4698/STB 

4723/SW 

4861/AW 

4903/PUSH 

4922/STB 

5059/STW 

5157/AI 

518S/LW 

5254/U 

5371/LI 

5764/PUSH 



2538/LW 

2856/LW 

3057/AW 

3573/LW 

3657/UCW 

4770/SW 

5057/PUSH 

5207/PUSH 

5259/PUSH 

530«/STW# 

5391/PULL 

5512/LB 

6113/PULL 



4243/A! 

4294/STW 

4359/CB 

4489/STW 

4549/L8 

46Q7/LW 

4682/AW 

4700/A! 

4726/LW 

4865/STH 

4904/AI 

4923/AI 

5060/LI 

5U2/STB 

5187/SW 

526Q/LI 
5372/STW 

5768/PULL 



2538/UW# 

2858/LW 

3078/AW 

3608/LB 

4684/SW 

4771/AW 

5064/L! 

5217'L! 

B267/LI 

5346/ST8# 

5456/PUSH 

5541/PULL 
6120/LB 



3^ 

4279/PuSH 

4295/bDR 

4364/PULL 

4491/t,B 

4555/AI 

4612/^TW 

4683/UW 

4706/ST8 

4727/SW 

4870/AWM 

4910/STB 

4926/PULL 

5061/STW 

5163/AI 

5202/LI 

5261/bTVv 

5527/t.I 

5798/11 



2539/STfc 
2867/CI 
3116/SW 
3613/AW 

4708/ttDR 

4829/SW 

5068/PULL 

5225/PULL 

5270/HUIL 

5354/STB* 

5467/^ULL 

6069/^USH 

6123/PUUL 
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RjPINDiDELTTE 




1950/BAL 


*78*.EQU 


RjPlNDtSEGUpNCE 




196P/BAL 


2781 »EGU 


RlFlNDfTYPf: 




195J/BAL 


2783/B 


a* insert 




195P/BAL 


29Q0/B 


RJINSERmUPSSEQ 




195.3/BaL 


289*»EGU 


RJLNK 




110-EQU 


X95D/BAL 


1956/BAU 


1957/BAL 


1963/BAl 


dSSR/BEl* 


3100/B* 


3106/B* 


3380/B# 




R1MBVE*DELFTE 




19S4/BAL 


2989. EQU 


R:MBVE$KEE'P 




19EP/BAL 


8991 /B 


r:penumbep 




195f/BAL 


^Hl »EGU 


R:SET$STEP 




1957/BAL 


3173.EQU 


RlSET*STEP»T*PE 




1958/BaU 


3175/B 


HjTS*CMN0*NMR 




2?'B»EC3U 


1626/CI 


RJTY*CMND*NMR 




22'f-EGU 


3351 /CI 


RjTVPE 




1960/BAt 


3247-EQU 


RjTYPptCOMPPESSED 




1961 /BAL 


324S.EGU 


Rjtype$sup»seo 




19S!»/BaL 


3249/B 


RpADNXTPAKHa^ 





2788/B 

2902/B 



1951/BaL 
1958/BaI 
2774/B# 

3130/B# 



2994-EQU 



3178. ECU 



2791. EQU 

2906«EGU 



1952/BAL 
1959/BAL 
2863/B* 

313VB* 



1953/BAl 
196Q/BAL 
2868/BNE* 

3154/8* 



1954/BAL 
1961/BAL 
887l'B« 

3160/B* 



1955/bAL 
l962/t»AL 
2974/B* 
3166/b# 



3252-EQU 



?500/BaL 


£549/8aL 


2807/BaL 


2926/BAL 


3036/BAL 


3047/BAL 


41 
31S7/&AL 


3278/BaI 


34Q?/BAL 


4986/BaL 


4997/BAL 


5*31»EQU 






RFADRaNDQ !s 1 














19'3?/8aU 


£6?37/BaL 


3070/BaL 


3148/BAL 


3685/BAL 


37Q1/BAL 


5433/WAL 


5*55»E0U 














readseguen 














?i<9?yBAL 


£220'8AL 


2525/BaL 


2574/BAL 


2730/8AL 


2847/BAL 


2928/^AL 


3044/BaL 


307P/BAL 


3814/BaL 


3295/BAL 


3453/BAL 


5443/BAL 


5488*tQU 


Rfadteletypp 














2075/BAl 


*93<3/BAL 


5556-EQU 










REA0TELETVPE8 














7?7/BaU 


*69*/BAL 


555Q-EGL 










RECSIZE 














334-DaTA 


520/PZE* 


209Q/ST^ 


2674/LW 


267S/ST* 


2676/MTW 


2693/STW 


?9!54/STW 


*66n/STW 


5405/LW 


5415/STW 


5417/MTW 


5658/STW 


5671/STW 


569?/lW 


5701 /CW 


5731/LW 


5737/STW 


5738/MTW 


5778/CW 


5808/LW 


581J/STW 


S817/ST* 


6079/MjWRITE 


6111/MjWRITE 


6141/M:WR?TE 






PEL 














496?/M|CL9Sfc 


t>067/HjCL6S£ 












RELATIVE 














S89-0ATA 


681/CALl 












PE9PEN 














64j?/bal 


b63K-EQU 












PFPSEO 














1211/BAL 


X239/BAL 


1350/BAL 


14Q5/BAL 


1478/BAL 


i494/8AL 


163S/BAL 


16KP*LW 














RESTARTtEXFCUTlVE 














1«2!0/BNEZ 


182*«iEQU 


1879/B 


3471/B 








PFSUME*PARSING 














733. EQU 


969/NXTPRM 


98Q/NXTPRM 


1010/NXTPRM 


1368/NXTPRM 


1376/NXTPRM 




13*i?/NiXTPRM 


1593/NXTPRM 


1633/NXTPRM 










PEV 














552»0/^!PRECORD 














PNMlO 














3149/BCS 


315**8AL 












RNM13 














31BP/BCS 


3l64»BAL 













1«*«EGU 

387?/NXTNAM 

j?375«STw 
2373/BKE 
54<iO/MlSETDCB 



RP 

RP*P*LAG 

RPAR 

RP3 

RP5 
RR$ERR 

RSSABN 

54«3?/^!SETDCB 
RS*ABNABK 

5S2?0/M|PRECORC 
RS$A8NE8M 

5531 -ECU 

PS$ABNOUT 

5530/BF 

RTtFPT 

52?7*Gp:N 

rtaddtbl 
rtstbtbl 

556F/EXU 
RTSTWTBL 

5565 /EXU 

RTIO 

537P/BNEZ 

RT15 

5609»Ll« 
RT17 

5584/BF 
RTR 

55!S3/B 



4£ 



1744/GEN4 

237F/STW 
38gc;/NXTNAM 

2379/BE 

b46P/MJR£AD 

S49*/MJREAD 

^521/MJREaD 

&53A/B 

S537»EGU 

i?607/CAll 

b6?fS-PGU 

&577/EXU 

t>6?o»EGU 

56Q4/B 

&55<5»LW 



3125/GFN4 

4635/MTI* 
3856/NXTNAM 



5473-RFS 
5511-RFS 
5523-EGU 



5581/EXU 



5612-PUlL 
5593/BNE 



4018/DATA 
5814/MTW 

3857/NXTNAM 



387Q/NXTNAM 337l'NXTNAM 



56l6«FQU 



5598/BGE 



43 



RT» 


5597-CW 


*60?/B 












^T9 
















S 


5600/BKE 


&603«AI 












6A»FKAME 


231 /EQU 


235/EQU 


*l7/flEN* 


417/QEN4 


417/GEN4 






63-5/CSECT 


J937/BAL 


3824/NXTNAM 


3839/NXTNAM 


3854/NXTNAM 


3855/NXTNAM 






33!56/ N XTNAM 


3857/NXTNAM 


3870/NXTNAM 


3871/NXTNAM 


3878/NXTNAM 


4017'DATA 


4OI8/WATA 




*02*/DATA 


^029/DATA 












SAVE 


















6C!S/M|0CB 


619/M;DCB 


4f950/MjCLeSE 


4958/MjCiesE 








SBSiO 


3649/BLEZ 


3656*BE 












SBS15 
















sc 


36!5?/8 


4656/BE 


3663-LW 










239-EGU 


*25R/DATA 












SsC o t» 


















1«6»EQU 


969/NXTPRM 


98Q/NXTPRM 


1010/NXTPRM 


1072/NXTPRM 


1089/NXTPRM 






U12/NXTPRM 


1127/NXTPRM 


1183/NXTPRM 


1203/NXTPRh 


1231/NXTPRM 


X264'NX?PRM 






1279/NXTPRM 


130R/NXTPRM 


1315/NXTPRM 


1361/NXTPRM 


1368/NXTPRM 


X376/NXTPRM 






138P/NXTPRM 


X413/NXTPRM 


1424/NXTPRM 


1432/NXTPRM 


1A38/NXTPRM 


X522/NXTPRM 






1533/NXTPRM 


1579/NXTPRM 


1593/NXTPRM 


1619/NXTPRH 


1633/NXTPRM 


3825/NXTNAM 




SECT1 


75/OEF 


26n«EQU 












SECT5 


7^/OEF 


637»EGU 












Sf.Q 


















180'EQU 


X098/NXTPRM 


1104/UI 


1U7/NXTPRM 


1122/LI 


mi'Li 






1207/NXTPRM 


123!«;/NXTPRM 


1298/NXTPRM 


1304/LI 


i34i/NXTPRM 


X399/nxtprm 






147?/NyTpRM 


X4g*/NXTpRM 


1512/NXTPRM 


1518/LI 


1526/NXTPRM 


X56X/NXTPRM 


1570/UI 




1376/Ll 


X6C«/NXTPRM 


1617/NXTPRM 


4237/LI 








SPCLIM 


2J.7»EQU 


329/DATA 












SEQ2 


















181-ECU 


X099/NXTPRM 


1208/NXTPRM 


1212/Ll 


1236/NXTPRM 


1240/Ll 






12«»<»/NXTPRM 


X34P/NXTPRM 


1356/H 


14QO/NXTPRM 


U09/LI 


1473/NXTPRM 


1482/UI 



14«9/NXTPRM 


X513/NXTPRM 


1562/NxTPRM 


16Q9/NXTPRM 


1618/NXTPRM 


1641/LI 


4226/LI 












SET$L6©P 












192?*/BK-EZ 


3421 .ECU 










SETAOR 












335-RES 


J899/STW 


3401/STW 


3466/LW 






SFTEBD 












1903/BAL 


«£09g/BAL 


2728/BaL 


2830/BAl 


2962/BAL 


3223/BAL 


330S/BAU 


34i*/BAl 


3468/BAL 


35Q7/BAL 


3537/BAL 


3559/BAL 


3594/BAL 


461R/BAI 


3632/BAL 


3669/BAL 


4634-EQU 


5667/BAL 


SETFLAG 












336-DATA 


646/ST* 


1682/MTW 


1761/ST* 


1819/MTW 


1846/MTW 


185U/HTW 


1897/STW 


1924/MT* 


31S1/ST* 


3198/STW 


3255/STW 


33«9/ST^ 


3411/STW 


34.22/MjW 


3450/ST^ 


4625/ST^ 




SETKEY 












54!>*/BAt 


t>644»EQU 


607Q/BAL 


6103/BAl 


6135/BAl 




SET*? 












5663/BF 


S66*/BE 


5669-L! 








SETK6 












566S/B 


$673-081 










SETLASTKEY 












5466/BAL 


5497/BAL 


5522/8AL 


5652»EQU 






SET1C 












3*C)7/BuE 


*|4 ifi *B A|„ 










SHIFTLEFT 












3504/BaL 


357B/BAL 


3659/BaL 


4672*EGU 






SHIFTR1QHT 












35554/BAL 


J609/BAI 


3631/BAL 


3651/BAL 


4738-EQU 




SIZE 












5464/M««EAD 


9493/KJREAD 


5521/M!^EAD 


6q79/m;wrtte 


6ih/m:write 


6141^M|WRITE 


SLID 












469*/BE 


*7o*"U 


4719/B 


4728/B 






SL20 












4690/BLEZ 


47i5,AW 










SL3 












4683-AW 


^7?Fi/BL 










SL30 













44 

2487/U 



3292/^At 
3576/bAl 



1863/STW 
3323/STW 



4$ 





467*/BCS 


4 7g3*SW 






SL5 


46HP/BGEZ 


469R.CI 






SL5A 


4697. LB 


47ot/BDR 






SPL1C 


3206/BE* 


32l4«tBAt 






SPU15 


322F/BG* 


4231 »BAl 






SPL?C 












3153D/BE 


•*2l*/8E 


3237*BAL 




SRS10 


4641/BNE 


4654«SLS 






SRS15 












4647/BNE 


4651 /BNE 


4653/B 


4658*sm 


SRS5 


464^-CB 


465f/B 






SRIO 












4778/BPi 


4784»AH 


48U/B 




SRI? 












4777/BG^ 


479o»LH 


4810/BGZ 




SR12A 


471! O/B 


479p»AND 






SR15 












48C51-LB 


480K/8DR 


4886/8 




SR1SA 


475)7/BF 


4806**TW 






SR20 












4807/BL^ 


48lfi«Lw 


4873/B 




SR20A 


481.A»L! 


4893/B 






SRg 


47!i?-BAl 


*76*/B 






SRgO 


47!5.*a/BCS 


482*. BAL 






SRS£ 


483?S«AH 


4857/B 







SR*?A 

*837»SH 

SR55 

483<f/BLEZ 

SR58 

SRftO 

4867/BLEZ 

SR70 

4747/BF 

SR7? 

4880/BLEZ 

SR» 

4760/8LE 
SR*A 

477P-LK 

Stack 

275/OATA 

stackdw 

133/PSW 
STACKSZ 

pja.EQU 

STER$L©aP 

1921/BnEZ 
STrPFLAG 

333.DATA 

4626/STW 

STLIO 

34g?*/8NE 

STL2C 

3460/8E 
STL30 

3437/BE 

STUB 

3434.11 

ST^PCLMK 






486A/B 
4848»LH 

4861»AW 

487n»AfciM 
4877-BAL 

489o»AK 

*77n»SW 
4844/8 
337*RES 

13*/PS* 
27^/DATA 

32C4.EQU 

647/STW 
1920/MTW 

^45R»BAL 
347F.BAL 
3440/BnEZ 
346P/BG 



350/OATA 

149/PL> 

337/RFS 



716/MTW 
3180/STVv 



3445-EGU 
3477/8 



152/PLM 
351/DATA 



168Q/MTW 
3199/ST* 



170/^SP 



350»PATA 



7Q3/STD 



1762/STW 

3224/MTW 



1854/MTW 
3678/MTW 



1860/MTW 
3710/hTW 





339*RFS 


4493/STW 


4494/Cto 


4BQ6/Cto 






ST9PLA8TCMD 














17!5F/Bf 


1787-PULL 










ST^IC 


3197-1! 


32in/BEZ 


3239/8 








ST^Q 
















1«3»EGU 


7^i/NXTPRM 


907/11 


918/NXTPRM 


928/LI 


9fc5'NXTPRM 




9<3K/Cl 


X4U/NXTPRM 


H17/UT 


4122/U 


4400/CI 




SVBPFLAG 














3if i -Data 


X814/LW 


1996/STW 


300^/STk 


3469/lW 




SV1STSET 














340-RES 


190O/LW 


3279/STbi 


3403/STW 






TAB 
















?635/MlOEV!CE 


2636/MJDEVICE 


2637/M:DEVlCr 


2638/hJDEVlCE 






tabcflag 














50«;»DATA 


I8gp/STW 


186S/ST* 


5696/ST* 


5729/MTW 


5762'MTW 


TABC8MPREJ5S 














5402/BAl 


!?759»EQU 










TA8C10 


5770-lB 


S774/BI 










TA8C13 


57&7/BNEZ 


b77?*AI 










TABC1S 
















5771/BF* 


577fi*AI 


5779/BG 


5783/BNE 


5802/BE 


5812/B 


TABC17 


578*/Bl4 


5>789«LW 










TABC18 


5790-CB 


S794/BG 










TA8C20 


5791. /BNE 


S79*»AI 










TA8C25 


5804*16 


t>809/Bt 










TABC30 


577*/BU 


b8U«MTW 










TABC3B 


581JUSTB 


»8?1/BL 










TABC5 















47 



966/LI 



4& 





576*»PULL 


S815/8NEZ 


5822/B 


taberrflag 








5(34. DATA 


2063/STW 


2429/STN 


tabexfand 








5674/BAU 


5>68*»E£iU 




tabset 










2632/EXU 


«J635»M|DEVICE 




tabxflaq 








504. data 


I8P3/STW 


1866/STW 


TAf?XlO 










5699/BE 


!5707*LB 


572#/9L 


TABXl? 


57J.?»WTW 






TABX15 










57C3*»/BNEZ 


S7l<3»Al 




TABX17 










5781/BG 


b727»tl 




TA8X19 










5739-LB 


&7#5/8GE 




TABX* 










56S»7*LI 


&735/BEZ 


57^9/B 


TABX5 










5*9*-CB 


b7o?/BL 




TA8X7 










57o*«PUUL 


57J.1/BNEZ 


5713/BKE 


TA5 










262'5/BE 


*63?*EXU 




TCIO 










5860*LB 


&86R/BDR 


5870/B 


TClS 










586*/BLE2 


&87R*8Al 




TC25 










58!>F?/BGE 


5881 *BAt 




TC<5 










R8K9«»l! 


5873»CAll 


5885/B 


tf^pblck 








34P-RES 


^13?/STW 


5133/UT 



S712/MTI* 



2772/MTiN 



S717/B 



5714/MTW 



2915/MTW 



3275'MTW 



5689/MTW 



572S/9 



5135/LW 



5139/CB 



5148/CB 



5155/UB 



5169/LB 


t>9#K/STW 


5952/STB 


6CJ?9/IW 


603P/LB 


6035/STW 


60SF/STB 


&057/QATA 




TFSTEDITACTTVF 






2>0???/BaL 


S131/BAL 


2388/BAL 


tfxtcadr 






3^3«RFS 


3<f9o/lB* 


3<*9l/tB* 


452?4/LB* 






TM4 






600P/BNE 


<>007»CALl 




TMB 






5983/BF 


6009/BL2 


601*-PULL 


TPC*FPT 






51.7»G£N 


^6gp/CALl 


5873/CAll 


TPMS6 






59A7/LW 


S96A.TFXTC 




TP10 






590 1/B 


S9l9»SlS 




TP?0 






590P/B6Z 


^947«LW 




TP« 






591.P.L! 


5963/B 




TRECSI2E 






3?>7»DATA 


9693/STW 


5816/lW 


TSADDR 






5G7*DATA 


679/STW 




TS10 






60^/BNE 


6<H9/BNE 


6Q54-IT 


TTYIMG 






3M«RES 


^7ofi/LB 


2713/CB 


UC6/IB 


♦llft/LB 


4172/tB 


568P/STW 


b627/QATA 




TTYIMGS2 






34B*RFS 


7g9/STW 


1922/MTV^ 


TXFLAG 






35*. DATA 


3449/STW 


375g/MTi*< 


TYPF$ALPHA 







5954/STB 
6036/STH 



2468/BAL 
^#89/ST^i 



3917/LB 
4178/LB 



3209/MT* 
3757/ST** 



5961/STB 
6037/STW 



5830-EQU 
4491/LB* 



3967/LB 
4811/LB 



4108/CW 

441J/MTW 



5962/LI 

60^0/STW 



#5Q2^tB# 



*061'LB 
5599/CB 



44H*l'MTW 



6027/UI 
6043/Ll 



4519/UB* 



4Q87AB 
5618/^TB 



963-EQU 
TYPEiBETA 

9?4«EQU 

TYPE*HCMND«D 

9«S«EGU 

TYPE$I|CMND*S 
9«7/8 

TYPECARD 

283l/ fl AL 

584*»EGU 

TYPECERR 

4.41/BAl 
36<>8/BaL 
4686/BAL 
TYPEMS6 

4SK/BAL 
1748/BAL 

8120/BAL 
23*1 /BAL 
8601 /BAL 
2861 /BAt 
3098/BAU 
3237/BAL 
462IP/BAU 
583P/SAL 

typeperr 

447/SAU 
4148/BAL 
TYPESEQ 

2070/BAL 

TYPM$PPT 

52??«QEN 

TYPlC 

32li4»CW 
TYP15 

32A7/BLE 

TYP17 



*00*/B 


10*4/8 


1046/B 


1C49/B 


1043/B 




990»EQU 


1050/B 


*22*/8AL 


3293/BaL 


75n/BAL 
371ft/BAL 
482R/BAI 


764/BaL 
3801/BaL 
4877/BaL 


655/BAl 
1751/BAL 

8184/BAL 
£397/BAL 
«6o^/BAL 
£869/BaL 
3104/BAL 
3314/BAL 
S>021 /BAL 
S867/BAI 


724/BaL 
1848/BaL 

2232/BAL 
2403/BAl 
2628/BAL 
2875/BaL 
3110/BAL 
3320/BAL 
5035/BAL 
5875/8AL 


XQ01/BAL 
M**/BAL 


1133/BAL 
4187/BAL 


S667/BAL 


2837/BaL 


*>CC7/CALl 




*29A/B 




^3oo»BL 





1045/B 



1047/8 



1048/8 



50 



3306/BAL 



940/BAL 
4424/BAL 

5893*EQL 

1676/BAL 
1914/BAL 

2244/BAL 
2435/BAL 
2738/BAL 
2957/BAL 
3128/BAL 
3408/BAL 
5044/BAL 
5974-EQU 

1245/BAL 

4231/BAL 

2934/BAL 



3741/8AL 



1173/8AL 
4468/BAL 



1692/BAL 
2009/BAL 
2311/BAL 
8444/BAL 
2744/8AL 
2969/8AL 
3132/3AL 
3443/BAL 
5103/8AL 
60II/BAL 

1320/8AL 
5904»E0U 

3231/BAL 



3748/BAL 



1908'BAL 
4474/BAL 



1716/BAL 
2093'BAL 
2322/BAL 
2546/BAL 
2750/BAL 
2971/BAL 
3158/BAL 
3475/BAL 
5587/BAL 
6056/BAL 

1443/BAL 



5881/BAL 



3755/bAL 



3692/&AL 
4578/&AL 



1738/PAL 
21Q3/SAI 
2328/WAL 
2569/bAL 
2756/bAL 
30^3/ttAL 
3164/PAL 
3495/8AL 
5715/SAL 



1538/bAL 



6Q2*»LqU 



51 





3300/BL 


330J*»AI 


TYP?C 








328S/BF 


3314-8AL 


TYP25 








3309/8LEZ 


3320-BAL 


TYP?5A 








335.7/BLEZ 


33gP<»U 


TYP4O 








32<J.1/BAU 


3304/BAL 


TYP42 








3330-LB 


3336/B 


TYP45 








333B/BQE 


3337pSTW 


TYP5 








3269/BNEZ 


327P/BL 


TYPBO 








33?>*/BEZ 


3339»LW 


TYP55 








3344.STB 


3347/BLE 


TYP6C 








33*^/BGE 


3349»LI 


TYP6S 


j4''**" 




TYP70 








33BP/BG 


3357»LI 


TYP72 








3360-CB 


336K/BL 


TYP7S 








336P-LB 


337«/B 


TYPge 








3361/BP 


337?«AI 


TYPgg 








3373-AI 


3377/BE 


TYP90 






Tl 


3310/B 


331R/8 


104-EQU 


643/LI 



3327-11* 



3274/8E 



3?76«RES 



3324/B 
644/STW 



3379-EQU 
645/STW 



646/ST* 



647/STW 



648/UI 



649/STW 

672/SW 

70?/L0 

709/STW 

7"}4/LB 

76^/t-I 

9!55/Xto 
llftO/CW 
1221/CW 
165?8/LI 
17SS9/ST* 
1790/STS 

iai7/LT 
186P/UT 
1877/LB 
1993/Cto 

2049/LW 
S3R3/LW 
?3"'4/Ll 
2437/11 

8587/STw 

26R3/AI 

2800/UW 

3023/lW 

3186/Aw 

3333/11 

34B0/STW 

3523/UB 

3667/Aw 

3815/LB 

3863/LB 

4393/lB 

4442/CI 
465J7/IB 
4774/11 
481.FS/LW 
484 J. /SW 



65«/U 
67B/STB 

703/STD 

710/LI 

73B/AWM 

763/AWM 
958/STW 
1163/LW 

X35F/LW 
1629/tW 

1760/STW 
179R/LI 
IglR/STW 
X863/STW 

1878/AS*M 

199R/LI 

SlOft/AW 

S354/CW 

237R/STW 

3438/STW 

8550/LW 

*65S/CI 

*8<)l/STfc 

3031/CLM 

3127/ST8 

3323/STW 

3464/LI 

^534/AW 

371P/LI 

381A/CI 

J864/CI 

*394/Cl 

**51/PULI 
4698/STB 

477R/STW 

*8l9/8DR 
4843/STH 



659/SlS 
696/LT 
704/LT 
711/STW 
736/1! 
915/tW 
993/LB 
1163/STW 
1358/CI 
1659/UW 
1761/ST* 
1796/STS 
182X/LT 
1865/STW 
1896/LT 
1996/STW 
8160/LW 
2357/LI 
2378/Cl* 
2517/lB 

2580/UB 

2675/ST* 

2913/LW 

3035/XW 

3147/LH 

3388/11 

3465/STW 

3525/U! 

3713/STW 

382J/LW 

3868/lW 

4397/11 

4457/LI 

4705/L! 

4779/lh 

4827/L1 
4861/AW 



666/SW 

697/ST^ 

705/STW 

712/LI 
737/STW 

921/XW 
994/CI 
1167/LW 
1622/LW 
1660/STW 
1762/STW 
1812/LI 
1822/ST* 
1866/STW 
1897/STW 
2001/CW 
2161/CW 
2358/ST* 
2425/LI 
2518/AW 

2581/AW 

2677/LW 

2921/L* 

3037/XW 

3150/LW 

3389/STW 

3466/LW 

3531/STB 

3728/LW 

3828/ST* 

3884/ST^ 

4419/LN 

4458/ST* 
4706/STB 

4790/LH 
4828/XW 
4885/LW 



669/U 
698/STW 

706/STW 
713/STW 
745/LW 

92*/STW 
997/LB 

1168/CW 

1623/ANO 
1742/LW 

1763/11 
1813/STW 

1823/ST^ 

1874/Ll 

1898/tW 

2003/U 

2210/LI 

2361/CW 

2426/STX 

2519/LW* 

2582/tW 

2685/LW 
2922/STW 

3046/XW 
3l97/tl 
3*10/11 
3467/STw 

3646/LW 

3729/E8R 

3847/LB 

3888/PULL 

4420/CI 

4462/PUUl 

4748/LI 

4791/AI 

4829/SW 

4891/LW 



670/AI 
699/STW 

707/STW 

714/LI 

746/8R 

936'IW 

998/CI 

1170/CW 

1624/STW 

1745/AW 

1764/STw 
1814/LW 

1842/LI 

J875/STW 

1899/STW 
20C4/STW 
2216/LW 

2371/LW 

2428/LI 
2520/AI 

2582/LW» 

2700/LW 

2964/AW 

3048/LW 

3198/STW 

3411/STW 

3469/LW 

3663'lW 

3730/STW 

3848/CI 

4387/PUSH 

4427'U 

4502/LB 

4743/STW 

4796/C! 

4835/AH 
4976/PUSH 



52 
671/SL.S 
7QQ/STW 
708/8TW 
715/STW 
747/tW 
937/CW 
1159/UW 
1820/UW 
1625/UI 
1758/11 
1789/LI 
1815/$TW 
1843/CW 
1876/^TW 
1992/Lw 
2034/LI 
2229/AIn 
2372/gw 
2429/^TW 
858X/UW* 
2652/LW 
2798/^7^ 
3QQ4AW 
3122/UW 
3199/STW 
3#34/LI 
347Q/STW 
3666/UB 
3811/PUSH 
3852/UW 
4388/11 
4439/&DR 
4503/QB 
4744/STW 
4805/«DR 
4838/Aw 
4977/UI 





5001/AI 


&01S/AI 


5016/LW 


5024/RULL 


5030/LW 


5038/PULU 


S3 
5G62/U 


T? 


522.5/LI 


&265/U 


5310/STB# 


5312/STB# 


5314/LB# 


5373/LI 




10B-ECU 


9??/LI 


923/XW 


927/STW 


1788/11 


1794VU 


2528/bTW 




PSB^/STW 


*55*/S* 


2564/A! 


2685/lK 


2686/AI 


2690'BDR 


270XAI 




2713/Cg 


«72?/STB 


2929/L.W 


2965/Cw 


3006/LW 


3024/LW 


3033/HM 




30^0/CW 


3058/CW 


4#88/P(JSH 


4496/PURGE 


4508/PULt 


4524/LB 


4525/CB 




4535/PULL 


♦801 /IB 


4802/STB 


4816/11 


4817/STB 


48*8/LH 


4849/AW 




4f8!50/ANQ 


♦851/AwM 


5063/LI 


5216/LI 


5966/Ll 


&299/STW* 


5302/STfc* 




5306/STW* 


&32?/STB# 


5335/STB* 


5374/LI 








UTSMl 


S34-TEXTC 


&58K/DATA 












UTSM2 


53S-TEXTC 


7gR/DATA 












UTShs 


536-TE*TC 


2629/DATA 












UTSM# 


















537»TE*TC 


1687/LI 


1691/STB 


1693/DATA 








UTSM5 


















539-TE*TC 


X7U/LI 


1715/STB 


1717/DATA 


1722/LI 


1737/STB 


1739/I^ATA 


UTSMfe 


5M-TEXTC 


1749/DATA 












UTSM7 


54?.TE«TC 


1729/LB 


1732/LB 










UTSMg 


5*>3«TPXTC 


S71A/DATA 












WAIT 


















F5463/*i R EAD 


S^/MJREAD 


6075/M:WRlTE 


61Q8/MJWRTTE 


6l3i/M:'*RITE 






WNPSABN 
















6106/nSETDtB 


6UP/MJWRITE 


6119-RES 










WRITENCWRAMDBM 
















31S1/8AL 


*101»EQU 












WRITERANDftM 
















2099/BAL 


^72q/BAl 


2963/BAL 


3064/BAL 


3084/BAL 


32C« / ^AL 


3427/&AI 




34!S5/BaL 


*681/BAl 


6133»ECU 










NRITE2 


















21<**/BAL 


2223/BAL 


2558/BAt 


6068»EQU 









5* 



Wp$ABN 


6073/WfSETDtB 


607«/MiWRITE 


6085-RE6 










x:c 


2H6.TF X TC 














XjF 


283«TCXTC 


2624/CW 












XITNT8 


280-GEN* 


1221 /CW 












XiM 


284«TE*TC 














xjeN 


27^-TEXTC 


UfeP/LW 


1168/CW 










XjaVER 
















x;s 


2?9«GE N 4 


117P/CW 


216i/CW 










2«*-TE*TC 














XJT© 


281-TEXTC 


1160/CW 












X£CJFUG 
















XF 


50*. DATA 


70O/STW 


1678/MTW 


1818/STW 








2fi5*DATA 


&22?/AND 


5500/AND 










XFFFF 


















268-DaTA 


^76l/AND 


4792/ANO 


4840/AND 


4850/AND 






XFFFFFF 


















270»DaTA 


*H3*/AND 


5502/AND 


5526/ANO 








XFFQC 


















267-DATA 


1623/AND 


3786/AKD 


4289/AND 








XFC 
















X1 


266-DATA 


5925/6R 












99-EQU 


*6n/8 


529/P2E# 


74VU 


747/CW 


749/BOR 


756/lB 




7!57/EXU 


93R/LI 


937/CW 


939/BPR 


947/tB 


949/EXU 


992/UI 




993/lB 


99*/LI 


997/LB 


H97/LI 


U98/LB 


1700'lW 


17Q2/&W 




1729/LB 


I73n/A|* 


1736/BDR 


1753/lB 


1754/CI 


1829/L! 


1830/5TW 




1831/LI 


183P/IB 


1845/STW 


1884/LI 


1885/LB 


1990/LI 


1991A8 




208*At 


£0?B/LB 


2035/t! 


2036/LB 


2038/AI 


2039/LB 


20**/Ul 



2045/lB 
2135/LB 
21&9/LB 
2207/Ll 

22B1/LB 
2273/AI 
228 l /LI 
2289/SUS 

P3C0/LB 
2389/U 

247?/LB 

25C59/LB 

2379/AI 

2432/ExU 
2680/STB 

2766/11 
291.0/H 
2947/CB 
300S/LB 

3145/LI 
3183/LP 
3268/LW 
3337/STW 

3349/Ll 
335)1 /LB 

349A/B0R 
3S87/AI 

3628/LB 
3770/STtt 
3787/AI 
3878/AI 

3921/H 

3978/BDW 

406^/CB 

420*/L* 
4M0/LT 

4496/PURGE 



2047/AI 
8137/LI 
^166/LI 
*2C*/L8 

«25«/L! 
2274/Al* 

*28?/LB 
2290/Al 
*334/U 
*39n/L8 
<J484/AI 
&516/AI 
«58o/lB 
8647/LI 
*69?/STB 

8767/LB 
8911 /LB 

8949/BDR 
3013/11 

3146/LB 
318R/LI 
327n/LW 
3339/L* 

3350/LB 
3396/LI 

3519/AI 
3588/LB 
3642/AI 

3771/AJ 
3788/STI* 

388*/ST* 
392P/C9 
399o/LB 
H068/BDR 

«39?/Ll 
*M7/L! 
4505 /LI 



2C48/LB 
2138/LB 
2167/LB 
2211/11 

2256/LB 
2275/LB 
2284/LB 
2291/AW 

2335/LB 
2419/LI 
2485/LB 
2517/LB 

2618/L! 
2648/LB 
2699/LI 
2794/U 
2916/LI 
3000/LI 
30H/LB 

3174/LI 
3254/LI 
3271/C! 

3340/STK 

3357/L! 

3398/LW 

352Q/LB 

3591/LB 

3643/LB 

3773/STB 

3789/PULL 

3886/ST* 

3924/BQR 
3995/BDR 

4100/LB 

4393/tB 
4418/LB 
4502/LB 



2081/LI 
2148/LB 

2174/LI 

2212/LB 

2267/lI 

2276/SLS 

2285/SLS 

2292/tW 

2351/11 
2420/LB 
2486/Al 
2532/AI 

2619/tB 
2650/LI 
27Q5/LB 

2795/LB 
2917/LB 

3001/STW 

3016/AI 

3179/tI 

3255/STtt 

3327/LW 

3341/CI 

3364/STB 

3400/AW 

3550/AI 

3592/AW 

3682/Ll 
3779/LW 
3811/PUSM 
3887/BDR 

3938/LI 

40Q3/PULL 

4127/LI 
4396/U 
4431/LI 
45Q8/PULL 



2083/CB 
2150/CB 
2175/LB 
22H/AI 
2269/LB 
2277/A! 
2286/AI 
229S/LI 

2352/LB 
2469/LI 
249Q/LB 
2533/LB 

2623/Ll 
2651/LB 
27Q7/AI 

2802/Ll 
2919/AI 

3002/LI 
3017/LB 

3180/STw 
3259/LI 
3330'LB 
3344/ST8 

3365/AI 

3401/STW 

3551/LB 

3605/AI 

3683/LB 

3784/BQR 

3812/LI 

3888/PULL 

3939/CB 

4008/LB 

4131/8DR 

4398/LB 
4432/LB 

4517/LI 



2085/BDR 
2156/CB 
2186/LI 
2215/LB 

2271/LB 
2278/AW 
2287/AW 

2296/LB 

2369/LI 

2470/STW 

2497/AI 

2535'AI 

2624/CW 
2677/LW 
2713'CB 

2803/LB 
2920/LB 

3003/LB 
3U2/LI 

3181/STW 
3260/LB 

3333'AI 
3345/AI 

3372/AI 

3490/LB 
3S71/AI 
3606'LB 

3768/PUSH 
3785/LW 
3832'AI 
3897'AW 

3941/BDR 
4059/PUSH 

4154'Ll 

4399/Ll 
4447/AI 
4522'Al 



55 
2134/WI 
2158/LI 
2187/LB 
2250/LI 
2272/^?LS 
2279/LW 
2288/L8 
2299/11 

2370/U& 
2471/UI 
2508/AJ 
2536/LS 

2626/tJQR 

2678/UB 

2715/AI 

2805/11 
2945/LI 

3007/LI 
3H3/LB 

3182/UI 
3265/AI 

3334/CW 
3346/LI 

3390/LI 

3491/LB 

3572/L9 
3627/AI 

3769/LW 
3786/ANP 

3842/AI 
3915/PUSH 

3974/Ll 

4Q65/LI 
4200/C;i 

44Q2/LB 

4488/PUSH 

4524/LB 



XtFFFF 



Xp 



453IVFULL 
4589/PUSH 

464$/Ll 

46!59/AI 

4803/AI 

4984/BDR 

5083/U 

5 101 /IB 

5189/CI 

5201 /PUSH 

S231/PULL 

5277/LB 

5300/STW 

5311 /LB 

534^/STB 

5388/LI 

5566/M 

55!39/CB 

562?P/STw 

57A1/STB 

57«0/M 

58()*/CW 

58<><?/M 

592? 1 /A I 

59!50/LW 

59??S/ p USH 

59<J*/CB 
269»DaTA 



100' 
170P/CW 

1834/C! 
2039/LB 
2C«*/STB 
?3!5?/LB 



*547/PySH 

459p/LB 

*6Q*/tB 

464A/CB 

^660/STW 

4808/PULL 

^92#»/PutL 

&087/SCS 

t>loP/STB 

&167/CK 

t»207/PUSH 

*23*/LB 

S27R/CJ 

&30P/ST* 

&31P/STB 

S353/LI 

S389/STW 

S569/LW 

S601/AI 

&7Q7/LB 

S74P/AI 

b78?/CB 

5818/STB 

5>877/PULL 
&92P/CB 

&953/LB 

&977/LW 

6005/U 
395P/AND 

52R/PZE* 
17Q4/BDR 
183^/CI 
204O/LW 
*159/L8 
8353/LW 



4549/LB 
4594/AI 

4619/PULL 
4648/BDR 
4661/PULL 
4S2Q/PULL 

5057/PuSN 
5QS8/LB 

5136/LI 

5169/LB 

5220/Lw 

5239/Cl 

5280/LI 

5303/STw 

5320/LB 

5354/STB 

5391/PULL 

5575/LB 

5606/LW 

5719/A! 

5747/Lto 
5789/LW 
5819/AI 

5896/PuSH 
5924/AI 

5956/BDR 
5978/SLS 

6008/AT 



946/1! 
1707/CT 

184Q/CI 
2C48/LB 

2160/LW 
2370/LB 



4561/BDR 

4595/LB 

4637/pgSM 

4652/L1 

4741/PUSM 

4882/LI 

5068/PULL 

5090/SLS 

S139/CB 

5172/AI 

5221/SLS 

5241/PULL 

5281/STW 

B305/LW 

5322/ST8 

5368/PUSM 

5551/PUSH 

5576/LB 

S612/PULL 

5720/CW 

5766/LB 

S797/AI 

5820/CW 

5897/Ll 
5926/STB 

5957/11 
5979/LB 

6014/PULL 



948/STB 
1731/LI 
1871/EXU 
2049/LW 

2208/LB 
2371/L* 



4565/PULL 
4598/AI 

4638/Ll 

4654/SLS 

4772/LW 

4883/SW 

507S/LB 

5091/LB 

5141/AI 

5177/LI 

5222/AND 

5P53/PUSH 

5283/PULL 

5306/STw 

5334/LI 

5378/PULL 

5R57/PUSH 

5578/BDR 

5617/STB 

5734/8W 

5770/LB 

5801/CW 

5849/PUSH 

5899/tB 

5940/BAL 

5958/LB 

5980/AI 



4570/AI 
4602/AI 
4640/CW 
4655/AI 
4794/LW 
4903/PUSN 

5076/CI 

5097/LB 

5155/LB 

5179/LB 

5223/CI 

5259/PUSH 

5298/LW 

5307/LW 

5335/STB 

5385/LB 

5560/LI 

5595/11 

5618/STB 

5736/AW 

5777/LB 

5804/LB 

5859/Lt 

5905/PUSH 
5942/PULL 
596Q/LI 
5981/LB 



4576/SDR 

4603/L8 

4642/bQR 

4658/^TW 

48Q1/UB 

49H/LI 

5C78/PUUL 

5099/bT^ 

5158/AI 

5183/AI 

5225/PULL 

5270/PULL 

5299/^TW 

5308/STW 

5344/lB 

5386/LI 

5562/ a DR 

5597/LW 

5621/STW 

5737/STW 

5778/CW 

58Q7/AI 

5860/LB 

B980/LW 
5949/LB 

5961/ST6 
5992/LI 



1698/LB 
1732/LB 

1885/LB 
2078/LW 
2209/LW 
2648/LB 



1700/LW 
1735/AI 
1991/LB 
2079/AJ 
2215/LB 
2649/LW 



170X/LI 
1832/LB 

1992/LW 
2080/LB 
2216/LW 
2651/LB 



P6K2/IW 
2706/STtt 
?76*/lW 
29M/U3 

?9!5?/STb 

303.0/AI 

3147/lW 

3389/L! 
33*51 /CI 
33?:VAf 
3551/LB 
3607/AW 
3644/AW 

3782/STW 

394P/CI 

39«t/AT 

4001/LW 

4129/STtt 

416B/LI 

4222/Cl 

44C5,?/IB 

4523/AI 

459R/LB 

4640/CW 

478A/STH 

4804/AI 

489P/LI 

5096/SCS 

5151/BDR 
530^/STW 
53j 4/LB 
5322/STB 
5339/LB 

S5BP/LI 
5606/LW 
5743/A! 
5799/STB 



2679/L! 
27QR/AI 
2769/AI 

*91?/IW 

^OO^/LB 

3011/1* 
3183/LB 

3331 /STB 

3359/LI 

3374/CW 

355P/AW 

360ft/LB* 

364S/IB* 

3783/AI 

396S/STB 

398P/SLS 

407^/11 

nsn/Ai 

*18R/AI 

♦227/11 

4403/U 

45?5/CB 

4596/LW 

464A/C8 

4790/LH 

4808/PULl 

&08H/LB 

S097/LB 

&17A/U 

^3C«/$T^ 

^3iR/Al 
S323/AI 
S344/18 

b557/PuSH 
$6i?/PULl 
b7^4/CW 
b80O/Al 



268Q/ST8 
2711/Cl 

277Q/U 

2920/LB 

3004/LW 

3C17/LB 

3184/LW 

3332/AI 

3360/CB 

3376/CB 

3553/LB# 

3610/Xw 

3664/U 

3788/STW 

3966/A! 

3989/STK 

4085/STB 

4132/AI 

4193/CI 

4238/C! 

4418/lB 

4556/LB 

4603/tB 

4650/CB 

4792/AMD 
4817/STB 
5089/STB 
5100/SLS 

5184/BDR 

5309/tB 

5316/SLS 

5325/lB 

5345/A! 

5558/tI 
5731/lW 
5789/LW 
5801/CW 



2684/LI 

2720/CI 

2795/LB 

2921/LW 

3005/AI 

3018/LW 

3260/LB 

3337/ST* 

3362/LB 

3391/LB 

3555/L* 

3612/Afc 

3683/LB 

3898/L! 

3976/STB 

3991/LI 

4086/AI 

4134/STB 

4196/BOR 

4?42/LI 

4419/LW 

4557/STB 

46Q6/LB 

4661/PULL 

4793/AWK 

4818/AI 

5091/LB 

5101/LB 

B301/LI 
5310/STB 

5317/AW 

S326/AI 

5346/STB 

5561/EXU 
5732/AI 
5790/CB 
58Q5/STB 



2687/LB 

2722/STB 

2796/LW 

?94?/LW 

3006/LW 

3143/LB 

3261/LW 

3343/Ll 

3363/STB 

3398/LW 

3578/LB 

3628/LB 

3684/LW 

3899/LW 
3977/AI 

399P/CB 

4101/U 

41355/AI 

4204/CI 

4387/PUSH 

4451/PULL 

4672/LI 
4607/LW 

4773/LW 

4794/tW 

4871/LW 

5093/STB 

5137/11 

5303/STw 

5311/LB 

B318/LB 

5327/SLS 

5347/A1 

5565/EXU 
5736/AW 
579g/AI 
580^/AI 



2689/Al 
2723/AI 
2799/AI 

2943/Al 

3008/LB 

3144/LW 

3262/A! 

3344/STB 

3366/AI 

3393/AI 

3573/LW 

3629/LW 

3780/LI 

3901/AI 

3979/Al 

3994/AI 

4U2/STB 

4136/SLS 

4209/t! 

4398/LB 

4462/PULL 

4574/CB 

4637/PUSM 

4779/LH 

4795/AW 

4872/AI 

5094/LB 

5142/BOR 

5303/STW 

5312/STB 

5320/LB 

5388/AW 

5354/STB 

5577/EXU 
5739/LB 
5793/CW 
5811/STW 



5/ 
2700/Lw 
2767/13 

28QQ/tW 
2944/UB 
3009/UW 
3146/UB 
3263/UW 

3350/UB 

3367/Cw 

3394/LW 

36O6/UB 

3643/lB 

3781/LW 

3925/11 

3980/^TB 

4000/&LS 

4II3/AI 

4155/UI 

4217/UI 

44QQ/GI 

4518/Uw 

4592/UB 
4639/Lw 

4784/AH 

4802/&TB 

4884/UI 

5095/bLS 

5147/Li 

5304/LI 
5313/BDR 

5321/AI 
5335/STB 

5551/^USH 

558i/tXU 
5740/^TB 
5796/AI 

58I6/UW 



5817/STW 


^820/Cw 


5851/LW 


5852/AI 


5863/AI 


5898/Ll 


5fc 
5912/UI 


592P/CB 


S592R/IB 


5932/BD* 


5950/LW 


5951/AI 


5952/STB 


5954/STB 


59?5«;/AI 


!?97^/PUSM 


5979/LB 


5985/BDR 


5993/LB 


5996'CB 


5998/&DR 


6001/CB 


6OO4/AI 


60U/PULL 


6025/PUSM 


6026/LW 


6O3O/LW 


6038/tW 


X3 

97»EqU 


&044/C8 


6046/STB 


6047/AI 


6048/CB 


6050/STB 


6058/PuLL 


674/1! 


675/STB 


1674/pUSN 


1756/PULL 


1787/pULl 


179Q/STS 


1793/PUUL 


1796/STS 


2132/1! 


2l33/$T>* 


2526/l> 


2572/CW 


2583/UW 


P678/LB 


*692/STB 


3045/LW 


3058/CW 


3079/CW 


5092/Ll 


5093/STB 


5Q94/IB 


5098/AI 


5099/STB 


5691/PUSN 


5698/LW 


5693/STW 


5694/1,1 


57CJ4/PULL 


S7 7/LB 


5710/AT 


6722/AI 


5723/CI 


5748/AI 


5764/PUSH 


576F/LI 


t?76f/LB 


5768/PUUL 


5770/LB 


5772/AI 


5773'CI 


5775/ A I 


5777/LB 

X4 


&784/LW 












98»equ 


986/L.I 


991/tI 


1007/B 


2169/Ll 


2173/Ll 


2195/CI 


P258/LI 


226P/LI 


2302/LI 


2306/LI 


2782/LI 


2787/LI 


2792/11 


2880/EXU 


*85P/EXU 


2897/1 1 


2909/LI 


2933/B 


2937/FXU 


2990/11 


29<}$/l! 


^061/B 


3081/B 


3248/LI 


3P53/LI 


3273/CI 


3289/fe 


3309/B 


&130/PUSH 


5131/LW 


5179/lB* 


5186/PULL 


5695/Ll 


5696/STW 


B698/CB 


S700/AI 


5701/CW 


5720/CW 


5728/STB 


5730/A! 


5734/SW 


5744/CW 


S747/LW 


5784/U' 


5785/AI 


5787/LB 


5787/LB 


5788/AI 


5793/CVi 














XgOOOOC 














271-DATA 


*949/C* 












ZERaiSTQjF'LG 














368-DATA 


J439/MTW 


3448/STfc 


3739/MTW 


3746/MTW 


44H/MTW 




4BLNKS 














2 7 3 . DATA 


4639/LW 


4936/LW 


5298/tW 


5B59/LW 
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10 
11 
12 
13 
14 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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*M# EDIT IS A FTLE BUlLDlNG/MA INTENANCE UTILITY FOr On-LINE CP.V USEHS 



##*#«#*«*«#*#«< 



#P# 
#P# 
#P# 
#P# 
#P# 
#P# 
#P# 
#P# 
#P# 
#P# 

#p# 
#P# 
#P# 
#P# 
#P# 
♦P# 
#P# 
#P# 
#p# 
#P« 
#P# 
«P* 

*P# 
*P« 

#P# 
#p# 
#p# 
#p# 
#p# 
#P* 
#P# 
#P# 

#P# 

#P# 



name edit 

purpose the edit processor is a file manipulation 
utility available to on-line cp.v users, 
its Capabilities include the building, deleting 
copying and merging sf entire piles and editing 
rec8rds within files as well as editing 8f data 
within records. 

reference* edit subsystem technical manualt this 105 

page d8Cument contains detailed flowcharts, tables 
and subrbutine descriptions* and just about 
everything a systems programme* needs 
t8 get int0 edit for modifications 8r debugging. 

references cp-v edit reference card (command structure) 
this card c8ntains the c8mmand structures por 
all the edit functi8ns and is very 

HANDY jq KEEP BY THE USERS TERMINAL, 

REFERENCE? CP»V TIME SHARING REFERENCE MANUAL, 

THIS MANUAL HAS AN EDIT SECTI8N WHICH SHOWS 
IN GREAT DETAIL ALL THE EDIT COMMANDS AL8NG 
WITH EXAMPLES 8F USAGEt IT W8ULD &E THE USERS 
BEST INITIAL INTRODUCTION T8 EDlTt 

REFERENCE? CP»V TIME-SHARING USER»S GUIDE. 

THIS MANUAL CONTAINS A SECTION ON EDIT 
SIMILAR TO THE TIMESHARING R£F£RE N CE MANUAL, 

DESCRIPTION? EDIT IS ORGlNlZED JN A HIGHLY MODULAR P'ASHBN, 
UPON ENTRY, 'BeGiNeDitOR! PERFORMS INITIALIZATION 
AFTER WHICH »MASTERPARSER* CONTROLS INPUT COMMAND 



HOI 



20*44 

39 

40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
5? 
*53 
54 
55 
56 
57 
58 
59 
60 
61 
6? 
63 
64 
65 
66 

67 

68 
69 

70 
71 
72 
73 

74 
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cooooco* 



0? OOOCO 



*s* 



ooooocoi 

OOOOOOOQ 



#p# 
#p# 
#p# 
#p# 
#p# 

♦ p# 
#p# 
*p# 
#p# 

#p« 

#p# 
#p« 
#p# 

#p# 
#p# 

♦ p* 
♦p# 
#p# 
#p# 
* 

# 

MODE 

« 

EDITBASE 



FQU 

CSECT 

SYSTEM 

SYSTEM 

fname 
pRec 

LOCAL 
SET 

PEND 



DEF 
DEF 
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SCAN 8F A LINE OF USER COMMANDS. FROM A LINE OF 
INPUT COMMAND(S) THE COMMAND DESCRIPTION TABLE (CDT) 
IS BUlLTt ERROR CHECKS ARE MADE AND WARNINGS GIV E N 
TO THE USER IF NECESSARY. »MAST£RPARSeR ' USES A 
NUMBER 8F sUBRSUTINEs T8 BUjLD THE CDT 8 'GETNA^' 
AND 'QETNEXTPARAMt TO BREAK DOWN TEXT STRINGS* 
«PARSE|IjCMND$INTGi T8 PR8CESS INTEGER STRINGS! 
•PARSCIUCMNDiSTRQ' T8 PR8CESS ALPHABETIC STRINGS 
IN SLASHES; AND R8UTINES 8F THE FO^M tPARSEjCMND* 
F8R COMMAND PROCESSING. 

ON ENC8UNTERING A CARRIAGE RETURN CHARACTER 
C8NTR8L IS PASSED T8 THf ?MASTEReX£CUTIVe' RSUTINg; 
Tfi PERF8RM ThE CeMMANDS WHICH THEN RESIDE IN THE CUTi 
tMASTEREXECUTIVE» SERVES AS A DRlVfcR FOR COMMAND 
PROCESSING USING tF;» ROUTINES FOR FILE COMMANDS, 
»RP ROUTINES FOR RECORD COMMANDS AND f Ii» ROUTINgS 
F8R INTRA. RECORD COMMAND PROCESSING, 

MSDE ■ 1 FOR BTM VERSION 
» 2 FOR UTS VERSION 




SIG7FD 

BPM- 



AF(M8DE) 
A 



EDITBASE 
BEGINEDITOR 



THIS FUNCTION SIMPLY SELECTS 
THE FIRST OR SECBND PARAMETER 
DEPENDING ON THE ASSEMBLY MODE 



DATA AREA FOR EDIT 
EDITOR START ADDRESS 
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78 
79 

80 

81 

83 
84 

8R 

86 
87 
88 
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DEF 


SECTl 




DEF 


SECT5 




DQ 


MODEf* 




DEF 


PATCH 




REF 


JlCCBUF 




REF 


MJUC 




REF 


MIEX 




REF 


MJE8 




REF 


JBjCCARS 




ELSE 




*s* 


DEF 


FlEI 


#s* 


DEF 
FIN 


FJE9 



DATA AREA ADDRESS (p0R GENMDS) 
PURE PR8CEDURE APDR (F»R GENMDS) 

PATCH AREA (F6R tfFNMOS) 

TTY BUFFER PASSEP FROM TEL 

DCB F6R USER TERMINAL 

EDIT INPUT DCB 

EDIT 8UTPUT PCB 

BYTE C8UNT 8F STRING IN U'.CCBUF 

BTM DCB (INPUT) 
BTM DCB (8UTPUT) 
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90 
91 
9? 
93 
94 

9S 
96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 

108 
109 
110 

111 
11? 
113 
114 
115 
116 
117 
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ooooocol 
oooooco* 
ooooooo^ 

0000Q00 4 
OOOQQOQ* 
OOOQOOO* 

oooooco/ 
ooooooo* 

000Q00Q* 

ooooeco* 

0000000* 

oooooco^ 
oooooco^ 
ooooooou 

ooooooo^ 



ooouooou 

0000000*5- 
OQOOQCO 1 * 



PAGE. 

*#######*###*######♦##### 
# REGISTER ALLBCATJSN # 



6g 



* 


* 

* REGISTERS 


1*13 


MUST BE 


X3 


FCU 




1 


X4 


EGU 




2 


XI 


EGU 




3 


X2 


EGU 




4 


PI 


egu 




5 


Pg 


EGU 




6 


LNK 


EGU 




7 


Tl 


ECU 




8 


T2 


EGU 




9 


P3 


ECU 




10 


Pi 


EGU 




11 


R2 


EGU 




1? 


FJLNK 


EGU 




13 


RJLNK 


EGU 




13 


I5LNK 


EGU 




13 


# REGISTERS 


0j14 


•15 ARF 


# 
RO 


EGU 







DO 


EGU 




14 


Pi 


EGU 




15 



PRESERVED BY ANY SUBR WHICH USES TH£M 



NEVER SAVED BY SuiRS 
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120 






• SYSTEM PR8CEDURES * 


121 






»**•««#*#«*«*#*•«»•#**« 


12? 






# 






123 






* 






124 






GEN4 


C8M#8jK*8#8 AF(1)#AF(2)#AF<3)# 


125 






• 






126 






* 






127 


coooocou 


PUSH 


C^AME 




128 








PR8C 




129 








L8CAL 


I 


130 






LF 


ECU 


i 


131 






I 


08 


NUM(AF) 


132 








D8 


NUM(AF(I))»1 


133 








PSWjAFUI 


\ STACKDW 


134 








ELSE 




1 35 








LCI 


(AF(Ii2)»AF(Ijl)4l)&XfFf 


136 








PSM*AF(Ij 


»1) STACKDW 


137 








FIN 




138 








FIN 




139 








PEND 




140 






# 






141 






* 






14? 


CGOQQCOU 


PULL 


CNAME 




143 








PR8C 




144 








L8CAL 


IjK 


145 






LF 


EQU 


* 


146 






I 


D8 


NUM(AF) 


147 






K 


SET 


NUMUF)*I + 1 


148 








D8 


NUM(AF(KJ)fl 


149 








PLW#AF(K] 


1 STACKDW 


15C 








ELSE 




151 








LCI 


<AF<K,g)«AF(K,l>+l)&X!F! 


152 








PLMjAFfKj 


il) STACKDW 


153 








FIN 




154 








FIN 
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155 








PEND 




156 






# 






157 






# 






158 


ooouocou 


PURGE 


CNAMF 




159 








PR8C 




160 








L6CAL 


I#N 


161 






K 


SET 





162 






I 


D9 


NUM(AF) 


163 








DQ 


NUM(AF(I))«1 


16* 






N 


SET 


N + l 


165 








FLSE 




166 






N 


SET 


N*( (AF(IjpP)" 


167 








FIN 




168 








FIN 




I fcy 






LF 


LI#0 


*N 


170 








MSPjO 


STACKDW 


171 








PEND 





6* 
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20U* 
172 
173 
174 

175 
1 1 o 
177 

178 

179 

180 
181 
1*5 
183 
184 
185 
186 
187 
188 
189 
190 
191 
19? 
193 
194 
195 
196 
197 
198 
199 

200 
201 

202 
203 

2C4 
205 

206 
2C7 
208 
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000QC0CU 

oooooooi 

0Q00QC02 
00000004 

oooooco* 

0000000& 

oooooco* 

000Q0C0? 

oooooco* 
ooooooo* 
oooocco* 
ooooooo* 
ooooooo^ 



FR 

FR 
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##*##«***#*«#«#«♦*«##** 


# PARSER PR6CPDURES ♦ 


# 


# 
END 


FQU 





NAME 


FGU 


1 


SEQ 


EQU 


2 


SEQ2 


equ 


3 


INTG 


equ 


4 


STRQ 


EQU 


S 


ALPH 


FQU 


6 


C8M 


EQU 


7 


SC8L 


ECU 


8 


LPAR 


EQU 


9 


RPAR 


EQU 


10 


PERI8D 


EQU 


11 


BLANK 

# 


EQU 


12 


* 
NXTNAM 


CNAME 


GETNEXTNAME 


NXTPRM 


cname 

PR8C 


getnextparam 




L6CAL 


IjN 


N 


SET 


NUM(AFJ«1 


LF 


BAL#LNK 


NAME(l) 



UTS FILE SEPARATOR 



GEN*8*U23 N#AFA(l>,AF(i> 

D8 N 

ERR8Rj1#NUM(AF(Ui>) §2 l ILGL SYNTAX! 

D9 AFA(l41i2)«l 

GEN,8#?0 AF(I+l4l>#**N-I*AFtI*l#2)*l 

ELSE 

GEN,g*?4 AF(I+1j1)jAF(I+1j2) 

FIN 
FIN 
PEND 
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209 






PAGE 




210 




*#*##«#*#«#*#**#«##«««##*## 


211 




* ADJUSTABLE 


PARAMETERS * 


21? 




«#•**#*«*##**«##«#««««#•««* 


213 




* 






214 




* 






215 


0Q0003E* 


DFLTSEQ 


FGU 


1000 


216 


0000008** 


KAXCLMN 


FQU 


140 


217 


C09«967|- 


SEQLIM 


egu 


9999999 


218 


COOO0C7U 


STACKS* 


FQU 


125 


219 




* 






220 


00000004 


F!RST*FiCM!ND 


ECU 4 


221 


ocoooclt 


FlRST*IS 


CMND 


ECU 30 


222 


oooooco d 


FlRST$RsCKKD 


ECU 11 


223 


C000002 A 


I JTS$CMND$NMR 


ECU 42 


224 


0000002° 


l!TY$CMND*NMR 


EQU 43 


225 


OGOOQOl* 


RiTS$CMND$NMR 


EQU 21 


C CO 


000Q0C1& 


RJTV$CMNDt\MR 


EQU 22 


227 




# 






CCO 




* 






229 


TEXT 


BL 


EQU 


t t 


230 


TEXT 


CM 


ECU 


f* • 


231 


OOGOOCCU 


CR 


ECU 


S(X'i5»#X»oD» ) 


232 


C098968U 


E8F 


ECU 


10000000 


233 


0000000* 


EQM 


EQU 


X»08» 


234 


ooooooo<* 


FF 


ECU 


x»oc» 


235 


C00000l b 


LF 


ECU 


S(Xtg5f«xti5?) 


236 


TEXT 


PR 


ECU 


•• ♦ 


237 


TEXT 


LP 


fcu 


M * 


238 


TEXT 


RP 


FOU 


n» 


239 


TEXT 


sc 


ECU 


n » 



6b 



DEFAULT STARTING SEQt # 

F6R MAX* SEQt N0» 
SIZE BF TEMP STACK 
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240 
241 
24? 
243 

245 

247 
248 
249 
250 
251 
25? 
253 
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6/ 



oooocoou 



#s* 



PAGE 
* EDIT/BTM INTFRFACE C&NTR8L 6L8CK # 



08 

eRG 

DATA 

DATAjIA 

DATA 

D61 

DATA 

FIN 



M8DE«1 

EDIT8ASE 
EDIT$TC8 

OjO 
8EGINEDIT6R 

XUO^IO 





HOI 



20 
254 
255 
256 
257 
258 
259 
260 
361 
262 
263 

264 
265 
266 
267 
268 
269 
270 
271 

272 
273 

274 
275 
276 

277 



278 

279 

280 
281 
282 
283 
284 
285 
286 
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6» 



02 
0? 

02 

Op 
02 
0? 
02 
02 
02 
02 



02 
0? 
02 
02 

02 
02 

02 
02 
02 
02 
02 

02 
0? 
02 
02 



02 OCCOU 

ooooq oyoonooi a 

00001 OUOOOOOA A 

00002 OOOOOO^B A 



00003 

0000* 
00005 
00006 
00007 
00008 
00009 



ouoonooF 

0U00O0FO 
0U00FF0O 
QU00FFFF 
QUOlFFFF 
0UFFFFFF 
0U8COO0O 



02 OOOOA 



OOCCC 
OOCCD 
OOOOD 
OOQCE 
COOOP" 
00010 
00011 
00012 
00013 
00014 
00015 



OUOOOCEA 
0U7D 



^00 



UFiF2F3 
F4FgF 6 F7 
F«F9ClC2 
C3C4C5C6 
02D6D540 
0^D6F5C5 

0H9D5E3 
0*E3D640 



ooooocoi 

00016 01C64040 

00017 01D44Q4Q 

00018 0*Eg4040 

00019 0*C34040 



4U404040 A 



♦ CQNST 

* 
# 

SECTl 
Kl 

K10 
KPE 
* 
XF 

XFO 
XFFOC 
XFFFF 
XiFFFF 

XFFFFFF 
X800000 

• 
4BINKS 

DMYSTKDw 
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ANT DATA # 



XjBN 

XjaVER 

XUNT9 

xsTe 



XJF 

X{M 

x:s 

xsc 



DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 

DATA 

B0UND 

DATA 

DATA#2 



HEXCHAR TEXT 



TEXTC 

GEN4 

GEN4 

TEXTC 

D6 

TEXTC 

TEXTC 

TEXTC 

TEXTC 



$ 

1 

10 
t • » 

X»F» 

X'FO* 
XtFFOOt 
XtFFFFt 
X«lFFFF' 

XtFFFFFF' 
X'800000' 



STACK 
STACK$Z#Q 



t0l234567«9ABCDFFt 



»8N» 

ki '©'# 'V»# »E» 

4i'Pj »Mj *T» 

M6DEf2 
IF' 

ts» 
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287 
288 








* 


FIN 




289 








« 






290 








* SPECIAL LIMITS 




291 








* 






29? 










B9UND 


8 


293 


02 
02 


oooia ouoonoFo 

OOOIB QU0OO0F9 


A 
A 


DIGITS 


DATA 


»0 f # »9* 


294 


02 
0? 


OOOIC OUOOOOCI 
OOOID QU00O0E9 


A 
A 


LETTERS 


DATA 


«A»# »Z f 


295 




ooooood 






06 


M6DE-2 


296 


02 


C001E 0U00O081 


A 


LCIETTERS DATA 


XtSl'jX»A9« 




02 


OOOlF 0U00O0A9 


A 









297 



FIN 
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298 










299 










300 










301 










30? 










303 










304 


0? 


00020 


FtfrFFFFF 


A 


305 


0? 


00021 


OUOOOOOO 


A 


306 


0? 


00022 






307 


0? 


00023 


OUOOOQOO 


A 


308 


0? 


00024 






309 


(3? 


00048 






310 


02 


OOOAC 






311 


0? 


OOOAD 






31? 


c? 


OOOAE 


ouoonooo 


A 


313 


02 


OOOAF 


ouoooooi 


A 


314 


0? 


OCOBq 


OU0003E8 


A 


315 


0? 


OOOBl 






316 


0? 


0O0B2 






317 


OP 


000B3 


ouoooooo 


A 


318 


02 


C00B4 


ouoooooo 


A 


319 


0? 


OOOB5 






3?0 


0? 


00086 


F^FVFFFF 


A 


321 


0? 


00087 






322 


0? 


0O0B8 


ouoooooo 


A 


323 


0? 


000B9 






324 


0? 


0008a 






325 


0? 


OOOBB 






326 


0? 


cooec 






327 


0? 


00Q8D 


QUOOOOOO 


A 


328 


0? 


COOBe 






329 


0? 


000BF 


0U98967F 


A 


330 


0? 


000C0 


ouoooooo 


A 


331 


0? 


oooci 






332 


0? 


0O0E5 






333 


0? 


OO0E6 






334 


0? 


OO0E7 


ovooooac 


A 



PAGE 
* VARIABLE DATA * 



7Q 



AUFLAQ 

ALL8K 

8LANKCNT 

BPFLAG 

CARDJMG 

CDT 

CDTADR 

CNARPSN 

CBPYFL 

CRFLAG 

DFLTINCR 

E60CIMN 

ERRBRCNT 

FI01ADR 

FI02A0R 

FIEIDCNT 

filetype 
frstclmn 

FIRSTFReM 
FIRSTSET RES 
KBUF 

lastclmn 

LASTFReM 

LASTKEY 

LASTSET 

MAXSEQ 

K8CHGFLG 

PARAMBUF 

PARAMPSN 

PRMBUFS2 

RECSIZE 



DATA 

DATA 

RES 

DATA 

RES 

res 
res 

RES 
DATA 
DATA 
DATA 

RES 
RES 



RES 

DATA 

RES 



Res 
res 

RES 

DATA 

RES 

DATA 

DATA 

RES 

RES 

RES 

DATA 



• 1 


1 


MAXCLMN/4+1 

100 

1 
1 



1 

1000 

1 
1 

DATA 
DATA 
1 
.1 

1 

DATA 

1 
1 
1 
1 



1 

SEQLIM 



MAXCLMN/4+1 

1 
1 
140 



GL9BAL* >*0 IF ALL USED BN IlCMM? 

G18BAL! tO IF »ALL» IS ©*• 
SHFTRGHTJ # 9f BLANKS T6 CBMPRESS 

GL9BAL? BLANK PRfcSERVATl&N FLAGitfNpl 

GLOBAL: HOLDS ACTIVE CaRP IMAGE. 

GL9BALI COMMAND PfSCRIPTION TABLfc 

GLOBAL* ADR OF CURRENT CMND IN CPT 

PARSER? PSN OF NfcXT CHaR TO SCAN 
FiCOPY*- FIDliFlP? IF 1 

GLOBAL? Qi INCLUPE TERMt IN OUTPUT 

GLOBAL I DEFAULT VALUE FOR INCREMENT 

GL9BALS C8L.# OF LAST NON*BLANK 

GLBBALS * 8F ERROR MS6S TO PRINT 



SHFTRGHTJ * OF FJfLDS TO COMPRESS 

GLOBAL I SPECIFIES T*P£ ^ I NP F I^E 
FINDMATCHj FIRST COL. TO START AT 

GLOBAL* FIRST SEW, * FOR SET CMNP 
I/O? HOLDS KEY FOR CURRENT I/O 
findmatchj L a ST C©L* to STOP IN 
F;MBVFJ LAST IFRtfMt SEQ * READ 
1/8! HOLDS LAST *EAD *£* 
GLOBAL? LAST SEQf # FOR S£ T CMND 
GLOBAL? MAX. SEQ* N8. ALLOWED 
GL8BALJ BN(l) IF N8 CH A NGe CMND K EA D 
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6«06n000 



05 
05 



05 

A 

A 



DMYSTPM 



MTW#o 

BNEZ 

B 

ELSE 

B 

FIN 



BALjLNK 
DATA 

B 



MeDEiP 
8UIIDFLAQ 

MASTERPARSER 

F8END 

MASTERPARSER 



TYPEMS6 


0#X1 



8U 



WAS ENTRY FR0M Ul ( B) 

N6 

YES* EXIT 

CONTINUE 



TYPE ERRPCON 

RETURN 



HOI 2QU* SEP C8# »75 
46? 

464 
465 

466 

467 

468 OOOOOOOU 

469 

470 
471 
47? 
473 
474 

475 
476 

477 

478 

479 

480 
481 
48P 
483 
484 

485 
486 
487 
488 
489 
490 
491 
493 
493 
494 
495 
496 
497 
498 



81 



PAGE 

# EDIT TASK C8NTRGL Bl8CKj ETC. ♦ 

* 
* 

D© M8DE«1 

*S* B8UN0 8 

*S* ED!T*TCB ECU t 

*£♦ DATA E0IT$TSTK 

•S* DATAj? 20jQ 

•S* DATAMA 

*S* DATA, 16 

*S« DATA EDIT$DC9T 

*S* DATAM6 

♦S* DATA 

♦ S* # 

»S* # USERtS TEMPORARY STACK 

*S* * 

*S# EDITtTSTK EQU * 

*S* D81 5 

*S* DATA, 16 

#$* # 

*S* # DCB NAME TABLE 
*S* * 

*S* EDITtDCBT EGU * 

*S* DATA LINK1 

*S# TEXTC »F|EJi 

*S* DATA PiEI 

*S* TEXTC fFIE9t 

*S* DATA FJEB 

*S* LINKi DATA 
ELSE 
* 

# UTS INTERFACE PARAMETERS AND MESSAGESt * 



HOI 



20J44 S 


;Ep 08 


499 






500 


0? 


Q02C1 


505 


0? 


002C2 


502 


0? 


002C3 


503 


02 


002C4 


504 


(3? 


C02C5 


505 


0? 


002C6 


506 


02 


Q02C7 


507 


02 


003C8 


508 


02 


002C9 


509 




02 


510 


02 


002CA 


511 




02 


512 


02 


002C8 


513 




02 


514 


02 


002CC 


515 


02 


OOHCD 


516 


02 


Q02CE 




02 


002CF 




02 


COSDo 




0? 


002D1 


517 


0? 


002D2 


518 


02 


00203 


519 


02 


00204 


520 


02 


002D5 


521 


02 


002D6 


k>2? 


02 


002D7 


523 


02 


002D8 


524 


02 


00209 


525 


02 


002DA 


526 


02 


002D8 


527 


02 


002DC 


528 


02 


002DD 


529 


02 


C02DE 


530 


02 


002DF 


531 


02 


002EQ 


532 







82 



QUOOOOOO 

OUOOOOOO 
F*FFFFFF 
F^FFFFFF 

ouoonooo 

QUOOOOOl 

quoooooi 
quoooooo 

F^FFFFFF 
002CA 

2^00005C 

0C2CO 

2C00O04B 

0Q2C<* 

2^000000 
1UO0O00O 
3^000010 
0U00O2C2 

quoooooi 
ouoooooq 

1X000000 

3*ooncio 

0^000024 
8U00D0E7 

quoooooo 
1X000000 

3^000010 
8U00DC07 
8U00O00* 

quoooooi 
xuoooooo 

3^000010 
8U000003 
0U0OOC8C 

00000000 



BUILDFLAG DATA 
CFLAG DATA 
ZNTFLAGi DATA 
INTFLAQ2 DATA 
TABERRFLAG 
TABCFIAG 
TABXFIAG 
TSADDR DATA 
XEQFLAG DATA 
PR9MPTSFPT 

GEn^8j24 
PR8MPT2$FPT 

GEN#8j24 
NOPR©MPTtFPT 

GENj8jP4 
8R$FPT GEN,g,?4 

DATA 



IF ZER84 ENTERED BY BUILD 



• 1 

mi 

DATA 

DATA 1 
DATA 1 


• 1 
ECU * 
Xi2C'# »*» 

EQU $ 

X»2C»J f •» 
EQU ft 
Xi2C»jQ 
X»10»iM?UC 
Xt34000C10»^CFLAG#liO 



/INTERRUPT SEQ INDICAT8RS F8R 
/TN8SE C8MMANDS W HICH DISPLA*. 



TPC$FPT 



TYPMSFPT 



RT$FPT 



GEN#gjP4 
DATA 

DATA 

PZE 

DATA 

GENjgjP4 

DATA 

Pit 

PZE 

DATA 

6EN#8j?4 

DATA 

PZE 

DATA 

DATA 



TEMP STACK ADDRESS 

MINUS 8NE IF N»T IN EXECUTION 



Xili»jM|UC 

X»340QO01O f 

CARDIMG 

♦RECSIZE 



X»11«#MIUC 

Xt34000C10* 

#LNK 

#X2 

1 

Xf 10»jMJUC 

X»34000010' 
• XX 

MAXCIMN 





HOi 20844 
533 
534 



535 
536 



SEP O&m «75 



8^ 



537 



538 

539 



540 
541 



54? 



543 



0? 

0? 
0? 
OP 
OP 
0? 
0? 
0? 
0? 

0? 
0? 

0? 
0? 
0? 
0? 
0? 
0? 
0? 

c? 

0? 

02 

0? 

c? 

0? 
0? 
0? 
0? 
OP 
0? 
0? 
08 
0? 

0? 
0? 

0? 
(3? 



GC2E1 
Q02E2 
Q02E3 
Q02E4 
Q02E5 
002E6 
C02E7 
Q02E8 
002E9 
008EA 
002EB 
002EC 
002ED 
002EE 
002EF 
002FQ 
002F1 
002F2 
Q02F3 
002F6 

002F7 
002F8 

002F9 

002FA 
002F8 
C02FC 
00303 
00304 
00305 
00306 
00307 
C0308 

00309 
0030A 

0030& 
C030C 



QVC*>CkC9 A 
E34CC8C5 A 
D^C54C40 A 
Q£5Co*40 A 

0<r60R5D6 A 
E34CC661 A 
D461FP61 A 
C34Q4040 A 
24606QC9 A 

D^E3D9Cl A 
6UD9C5C3 A 
D609f440 A 
C3D6D4D4 A 
CX05C440 A 
C»D5F3C5 A 
D»D9F4D7 A 
E340C1E3 A 
4U404040 A 

1>6C60C3 A 
D6D4D4C1 A 
D&C44CC9 A 
DbE3C509 A 
D»E4D7E3 A 
4UC1F340 A 



0*60*040 
E 7 40F3D6 
4UC1C2D6 
D»E34B40 
>, E6C8C9 
D^C540C4 

C&D3C5E3 
C»D5C750 

3£606CE3 
CiCg40C3 



UTSMi 



UTSM2 
UTSM3 



UTSM4 



UTSM5 



UTSM6 



UTSM7 



UTSM8 



TEXTC 



TEXTC 
TEXTC 



TEXTC 



RES 
TEXTC 



RES 
TFXTC 



TEXTC 



»EDIT MERE* 



!*H» # ♦ E9M 

1.N6T F/M/S/C 



t*»INTRA.REC8RD C8MMAND INTERRUPT At t 



!-.*C8MMAND INTERRUPT AT * 



!•• X T8 A88RT.? 



ftaHILE DELETING)! 



TEXTC i. .TAB CHAR, FSUNDj ifTAti NEEDED F&R CGL. SIMULATION! 



HOI 



2DH4 < 


SEP Ogj 


t 75 












OP 


0030D 


C*ClD94B 


A 










0? 


003CE 


4UC6D6E4 


A 










(3? 


0030P" 


C5t>C45E40 


A 










0? 


00310 


7WE3C17D 


A 










0? 


00311 


40D5C5C5 


A 










0? 


00312 


C4C5C440 


A 










09 


00313 


C6D6D940 


A 










0? 


00314 


C3D6D34B 


A 










0? 


00315 


4UE2C9D4 


A 










0? 


00316 


E*D3ClE3 


A 










0? 


00317 


C»D6D540 


A 








544 










* 






545 




02 


00 3 17 




BDISPTBL 


EQU 


$•1 


546 


0? 


00318 


0*C3D6D7 


A 




GEN#8j?4 


4* »cept 


547 


0? 


00319 


0^D4C5D9 


A 




GEN#8/?4 


Sm «MERt 


548 


0? 


0031A 


0<ID4D240 


A 




TEXTC 


tMKi 


549 


0? 


003lB 


Q2D4C440 


A 




TEXTC 


tMO 1 


550 


0? 


0031C 


0SC4C54O 


A 




TEXTC 


IDE* 


551 


0? 


0031D 


02C6C440 


A 




TEXTC 


tFQ' 


55? 


0? 


C031E 


0*C6F340 


A 




TEXTC 


iFTi 


553 


0? 


0031?" 






PATCH 


RES 


SO 


554 










# 






555 












FIN 





s* 



####* 



THESE C8MMANDS REQUIRE DISPLAY 
SF SEQ. NUMBERS SET UP IN 
INTFLAGl AND INT*LAG2j WHEN 
INTERRUPTED BY TH£ BREAK KEY 



#*### 



HOI 



201*4 < 


SEP 08* 


'75 












556 












PAGE 






557 










•##**««#*«««♦*«««»*#**««*•««#**«**#*##»#*#«#«#• 


558 










• ©PEN 


FPT'S (HAND.COOeD T8 AV©IO 


PR8BLEMS) # 


559 










#«**#«******#«•«*»**#**«###*#*#*«##«###«««##«*• 


560 










# 








561 










# 








562 


02 


00351 


14000000 


N 


©$fpt 


GEN#8j?4 


X*14SFJEI 




563 


02 


00352 


63480001 


A 




GEN#32 


X»6548C001* 




56* 


0? 


00353 


0U00OBE4 


05 




DATA 


8$A3N 


abn 


565 


0? 


003R4 


OU000024 






DATA 


CARDJMG 


BUF 


566 


0? 


00355 


00000002 


A 




DATA 


2 


KEYED 


567 


02 


00356 


00000004 


A 




DATA 


4 


IN9UT 


568 


0? 


00357 


00000002 


A 




DATA 


2 


SAVE 


569 


0? 


00358 


0O00O003 


A 




DATA 


3 


MAX KEY LENGTH 


57q 


02 


00359 


0i000«08 


A 




DATA 


X»01000808» 




571 


0? 


0035A 






6$NAME 


RES 


8 




572 


02 


C0362 


0^000202 


A 




DATA 


X» 02000202 ' 




573 


02 


00363 






6$acct 


RES 


2 


ACC6UNT 


574 


02 


00365 


0*010202 


A 




DATA 


X»03Q10202» 




575 


02 


00366 






©$pass 


RES 


2 




576 










* 








577 










# ©PEN 


FPT F9R CQPY FILE 




578 










* 








579 


02 


00368 


14000000 


N 


©2*FPT 


G£N*8j?4 


Xtl4SFiE© 




58C 


02 


00369 


6&4S0001 


A 




GEN*32 


XI6548Q001» 


SAME PARAMETER 


58 1 


02 

02 
02 
02 
02 
02 


0036A 
0036B 
C036C 
0036D 

Q036E 
0036F 


OOOOOBFE 
0000OO24 
00000002 
00000004 
0O0QO002 
00000003 


05 

A 
A 
A 
A 




DATA 


92$ABN#CARDIMG#2j 


i4j2#3 


582 


02 


C0370 


01000808 


A 




DATA 


Xf0l000808f 




583 


02 


00371 






©p$NAME 


RES 


8 




584 


02 


00379 


0*000202 


A 




DATA 


X» 02000202' 




585 


02 


0037A 






62*ACCT 


RES 


2 




586 


02 


C037C 


0^010202 


A 




DATA 


X?03010202t 




587 


02 


C037D 






©g$PASS 


RES 


2 





gb 



As AB©vE 



HOI 



20 J 


44* SEP 08# ' 


75 




588 


oooocooi 




589 


02 0037F 


06 


A 




0? 0037F 1 


2U 


A 




0? 0037F 2 


ou 


A 




OP 0037F 3 


ou 


A 


590 


0? 00380 


2U0OO000 


A 


591 


Op 00381 


0M80 


A 




0? C0381 2 


0M80 


A 



59? 



D6 M&DEiP 
RELATIVE: DATAii 6#32#0*0 



DATA 
DATAjg 

FIN 



86 



1**29 
X?SC'*X'80» 



THIS IS AN FPT F»R 



SETTING RELATIVE TABSi 



HC1 



20 
593 

594 
595 
596 

597 
598 
599 
600 
60 1 
6C2 
603 
604 
605 
6C6 
607 

6CR 
609 

610 
611 

612 
613 

614 

615 
616 
617 

619 
620 
621 

622 
623 

624 

625 



44 SEP 08* »75 



000Q000W 



EXT 



ooooooou 



PAGE 
♦ DCB'S F8R UPDA 



TE AND C3PY FILES # 



***«*#**«##«###«#«#«#*##*«#**#«##«##* 



EXT 





* 








# 










D8 


M8DE»1 


*$* 


FIEI 


CSECT 





#s* 


FJEI 


MIDCB 


(FILE)*; 


#s# 






(KEYED)/! 


#$* 






(IN9UT)#I 


•s* 






(PASS* fSECRETt )*j 


*s* 






(SAVE)*; 


*s* 






(KEYM#3)*; 


*s* 




FLSE 


(BUFjCARDIMG) 




FSEI 


FQU 

FIN 


MIEI 




• 








* C8PY 


FILE DCB 






# 


D9 


M9DE«»1 


*s* 


FJE6 


CSECT 





#$# 


F8ES 


MlQCB 


(FILE)*; 


•s* 






(KEYED)*; 


*s» 






(8UT)*| 


♦s* 






(SAVE)*; 


♦s* 






(KEYM*3)*; 


*s* 






(BUF*CARDIMQ)*; 


*s* 




FLSE 


(PASS* 'SECRET! ) 




FIE© 


FGU 
FIN 


MIES 



HOI 



20144 
6K6 
627 
6c8 
629 
630 
631 
632 
633 
634 
635 
636 

6a7 

63S 
639 

640 
641 
64? 
643 
644 
645 
646 
647 
648 
o 45? 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 



SEP 08i '75 



8& 



05 00000 

05 QQCOU 

05 0000U 
05 00000 6*000001 

ooooooou 



*s* 

*s* 

#s* 
#s# 
*s* 
*s* 
*s* 
#s* 
*s* 
#s* 
*s# 

♦s* 
*s# 

♦s* 

#s* 
*s* 
*s* 
#s# 
#s# 
#s* 
#s* 
*s# 



PAGE 

# # 

# BEGIN' EDITOR * 

# # 

« 



CSECT 

begineditor 

SECTS rQU 

e 
do 

MTW, 
BIZ 

BALiLNK 

LIjTl 

STWjTl 

STWjTI 

STW # Tl 

STWiTl 

LI#T1 
STW # Tl 



S(0#1) 

ECU * 

BGD10 
MODEil 

FILETYPE 

REOPEN 



USTKEY 

NOCHGFLG 

SETFLAG 

STEPFLAG 

• 1 
ALLFLAG 



# 
# 
BGDlO 



FINISH INITIALIZATION 



Ll#Ro 
CAL3j2 

bal#l>k 

DATA 

L!#Ti 
SLS#Tl 

LliLNK 
Al#LNK 



4 

TYPEMSG 

MSGO 

EDITBASE 
•9 

BEQINEDIT8R 
X»1FF» 



JUENTER HERE AT NORMAL START 

i:iENTER HERE AT BKpAK 

REOPEN Fill IF ONE WAS OPEN 

RESET ASSORTED FLAGS# ETC» 



SET ACTIVATION TYP£ • k 
TYPE I l/F * C/R 



CONVERT BASE TO 

PAGES, 

CONVERT PROGRAM Te NEXT 
HIGHER PAGE* PUT 



HOI ?0J44 SEP Q8# t75 



663 








«s* 




SlS/LNK 


• 9 


664 








»s* 




STWjLNK 


RO 


665 








*s* 


« 






666 








*s# 




SW,RO 


Tl 


667 








#s* 




STBjLNK 


RO 


668 








•s* 


# 






669 








*s# 




LI,T1 


ENDEDITOR 


670 








* s ^ 




Al#Tl 


Xi IFF t 


671 








*s* 




SlSiTl 


• 9 


67? 








*s* 




SWjTI 


LNK 


673 








*s* 


♦ 






674 








♦s# 




LI/X3 





6755 








*$# 




STB/Tl 


X3 


676 








»s* 




CAL3j11 





677 












ELSE 




678 




05 


ooooi 




BG010 


EQU 


* 


679 


OB 


00001 


3*>0CO?C8 


02 




STW,R 


TSAODR 


680 










# 






681 


OF 


00002 


0480037F 


02 




CALl#8 


RELATIVE 


682? 


05 


00003 


0*800000 


03 




MIINT 


BRK*K£Y 




03 


ooooo 


0&0OOP8F 


05 









ss 



IN RO. 

CONVERT RO TO PROGRAM DATA 
PAGE COUNT. 

COMPUTE PURE PROCEDURE PAGE COUNT 



END-BEGIN 

SET UP REGISTER i, 

SET SWAP SIZE 



TA9ING 



683 



FIN 



HOI 



20 

685 
doq 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 



144 SEP 08* '75 



PAGE 



9U 



35 
35 
35 
35 
35 
35 

'35 
35 
3 5 
5 
35 
35 
35 
)5 
3 5 
)5 
35 
)5 
35 
3 5 
35 
05 



05 Q0004 

oooooooi 

00004 OMOOPCA 02 

00005 2S8FFFFF A 

00006 3*8oo2C3 02 

00007 3$8on?C4 02 

00008 3&8onC20 02 

00009 3&8002C9 02 

0000A 1280000C 02 

OOOOB 1&80019C 02 

0000C 2*800000 A 

COOCD 3b80OC48 02 

OOOOE 3^80O0AD 02 

OOOOF 3580O19E 02 

00010 3S80019F 02 

00011 3S8001A! 02 

00012 28800100 A 

00013 3&8 O0<*9 02 

00014 28800049 02 

00015 3S8000AC 02 

00016 2887A120 A 

00017 3»8oooB2 02 

00018 33000167 02 

00019 6*30001C 



* M A S T E 

« 



masterparser 

D8 

CALIjI 

Ll'Tl 

stw,ti 

STW#Tl 

STVOTl 

STW#T1 

FIN 

LD#Tt 

STD/Ti 

LUT\ 

STW/Ti 

STW#Tl 

STV^Tl 

STW/T1 

STW#Tl 

LIjTi 

STW#Ti 

LI/T1 

STW#T1 

LIjTi 

STfc#Ti 

hTW # 

BEZ 



« 
R PARSER ♦ 



EQU $ 
M6DEi2 
PR8MPT*FPT 



coooooou 



♦s* 



Ll*RO 
CAL3j! 



• 1 

INTFLAG1 
IMFUAG2 
ALLFLAG 
XEGFLAG 

DtfYSTKDfc 
STACKDW 



COT 

CHARPSN 
MVDSREClCNT 
CHQjSTQjCNT 

CT$FLAQ 

XfOlOO' 

CDT*i 

CDT+1 

cdtadr 

500000 
ERR9RCNT 

stepflag 

$+3 

MeDE»l 
f # i 



RESET ALL FLAG 
PURGE STACK 

SET * Qf CMNPS f 

SET NEXT CHAR T8 SCAN » Q 

SET MVDJREC1CNT « 

SET CHGjSTGjCNT s o 

SET TYPE «CMt FLAG 8FF 

PUT tEND 6F COT! MARKER IN CDT 

INIT CDTADRflST CMND AODR 

SET T8 PRINT ALL ERRBR MSGS 

IS SYSTEM IN STEP M8DE 

YES - TYPE | m 



«01 



20 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
73? 
733 

734 
735 
736 

737 
738 
739 

740 
741 
742 
743 



J44 SEP QBi '75 



744 

745 

746 
747 
748 
749 

750 
751 
752 



OF 0001 A 
05 OOOlB 

OP OOOlC 
05 0001D 
05 0OC1E 



6 A 7onDC4 
OU0002E4 

6 A 7onCAE 
gUBFTFFF 
3bBoni9A 



05 OOOi* 1 
05 0001? F^80f)QAC 



05 00020 
05 C0021 

05 00022 
05 00023 



05 00024 

05 00025 

05 00026 
05 00027 
05 00028 
05 00029 
05 0002A 
05 00028 

05 0008C 
05 0002D 
05 0002E 
05 000?F 

05 00030 
05 00031 
05 00032 



668000AC 
2*800004 

3&80OQE5 
33100048 



6*700804 
0*0001C8 
0^000096 
0»00008E 
0&00002A 
0U00O301 
2*300025 
3£8onoCl 

4»80OE25 
3X860039 

6*300033 
6^30O02D 
6^70008? 

OUOCOIC^ 
6*000004 



*S* 



02 



A 

02 



02 
02 
A 

02 
02 



02 



A 
02 



Ll#Ro 

CAL3,1 

ELSE 

BAL#LNK 

DATA 

FIN 

BAL#LK'K 
Al#Rl 

STWjPi 



RESUMEtPARSINQ 

LBjTl 

A^M^Tl 
LIjTi 

STW#T1 

MTW#i 

NXTPRM 





TYPEMSQ 
UTSM2 

READTELETYPEg 

• 1 

TTYIMQSZ 



TYPE PR8MPJJ t#» 



YES • TYPE »#» 



91 



READ IN COMMANDS 
SAVE CNT 6F ©F CHARS INPUT* 
LESS C/R 



ECU $ 

♦CDTADR 

CDTADR 

4 

PARAMPSN 

CDT 

ERRC9*J 

( INTGiPARSEUSCMNDtlNTQjj J 

( STRCij PARSE I I 8 CMNDtSTRQ ) j I 

(ALPHj#)*| 

(END^MASTEREXECUTIVE) 



(ENTER HERE AFTER SEMNC0L8N F8gND) 
INCR CDTADR T8 NEXT ENTRY 

SET PSN eF NEXT ^ARAM « 1 
INCR 6CUNT 0F * *F ENTRIES 



02 



LX#X1 


CTBLSZ 




LWjTl 


PARAMBUF 


SEARCH F8R C8MMAND NAMg; JN TAB^e 


8R#Tl 


fX'00404040t 


C8NVERT CMND T8 UppER CASE 


CWjTl 


CNAMETBLjXI 




BE 


PRSlo 


F8UND . 68 PROCESS 


BDR#Xi 


$•2 


L88P 


BALiLNK 


typecfrr 


N8T IN TBI - TYPEJ UCnIUNKN CMnP 


DATA 


errcs 




B 


MASTERPARSER 


Q8 T8 PARSER 



HOI 20*44 SEP OB, *75 

753 
754 



9* 



755 
756 
757 

758 
759 
760 
761 
76? 
763 
764 
765 
766 



Or OOO33 
05 00034 



05 

05 
05 
05 
05 



05 
00035 
00036 
00037 
00038 
00039 



72560084 
6/06005E 



00C3tJ 

2*800100 
668000^8 
6 A 7ooD8F 
0U00O1B1 
6*000004 



* COMMAND F8UND! G8 PR8CESS ITS PARAMETERS 

« 

FRSlO LB, Pi 

FXy 



CNMRTBL#Xi 
CBRCHTBLiXi 



ILGL$SEkIc©L8N 
A LI#T1 

OP AWM#Ti 

BAULNK 
02 DATA 

B 



ECU * 

XiOlOCM 
CDT 

TYPECERR 

ERRC4 

MASTERPARSER 



SET PifCMND NUMBLR 

66 PRQCESS CMNO ^ARAMS 



(ENTER HERE IF I AFTER F? 8R R?c(iND) 
INCR T8 TYPE * 6F NEXT CMNO 

TYPE J fCNjCMND ILGL HERE? 



WOl 



20144 ? 


5EP 08# 


t75 










767 










PAGE 






768 










« 






769 










* COMMAND NAME 


TABLE 


770 










# 






77! 




05 


0QC39 




CNAMET&L ECU 




$-1 


77? 


OR 


0003A 


0«*C2D74n 


A 


TEXTC 




!BP» 


773 


OS 


00038 






081 




MGDEi? 


774 


05 


0003B 


0*E3C140 


A 


TEXTC 




»TA f 


77$ 


05 


0003C 


0<*C3D940 


A 


TEXTC 




*CR' 


776 


OR 


0003D 


0fc>CaF4C9 


A 


GEN**, 


?4 


5# f BUH 


111 


OS 


0003E 


0*C3D6D7 


A 


GEN^gj 


24 


4, *C&P» 


778 


OR 


0003F 


0*>C4C5D3 


A 


GEN*8j 


24 


6#»DEL' 


779 


OS 


00040 


0*C5C4C9 


A 


GEN#8# 


P4 


4* »E0!» 


780 


05 


00041 


03C5D5C4 


A 


TEXTC 




»END» 


781 


05 


00042 


0&&4C5D9 


A 


GEN*8# 


24 


5#»MER» 


78? 


05 


C0043 


0*090740 


A 


TEXTC 




!RP» 


783 


05 


00044 


0*C4C540 


A 


TEXTC 




»DE' 


784 


05 


00045 


0*C6C44Q 


A 


TEXTC 




?FD» 


785 


05 


00046 


0*C6F340 


A 


TEXTC 




»FT» 


786 


05 


00047 


02C9D540 


A 


TEXTC 




t IN» 


787 


OF 


00048 


02C9F240 


A 


TEXTC 




HS» 


788 


05 


00049 


0SD4C440 


A 


TEXTC 




»MD f 


789 


05 


0004A 


G*D4D240 


A 


TEXTC 




fMK* 


790 


05 


00048 


0*090540 


A 


TEXTC 




IRN» 


791 


05 


0004C 


0*E2F240 


A 


TEXTC 




tss» 


792 


05 


0004D 


02E2r340 


A 


TEXTC 




»ST* 


793 


05 


Q0C4E 


0*E3F240 


A 


TEXTC 




»TS f 


794 


05 


0004F 


Q*E3F840 


A 


TEXTC 




ITV 


795 


05 


00050 


0«E3C340 


A 


TEXTC 




!TC« 


796 


05 


00051 


0«JC6F24O 


A 


TEXTC 




fFS* 


797 


05 


00052 


02C3D440 


A 


TEXTC 




fCMt 


798 


05 


00053 


08C3F340 


A 


TEXTC 




ICT» 


799 


05 


00054 


02E?C540 


A 


TEXTC 




fSE» 


8C0 


05 


00055 


Q*D1F440 


A 


TEXTC 




»JU» 


801 


05 


00056 


Q2D5D640 


A 


TEXTC 




!N8» 


802 


05 


00057 


08D9C64O 


A 


TEXTC 




tPF» 


803 


05 


00058 


OlCg4040 


A 


TEXTC 




»B» 



9* 



1J BP 



2S 


TAB 


a: 


CR 


u: 


BUILD 


5J 


CQPY 


6*. 


DELETE 


71 


EDIT 


88 


END 


9 


1 MERGE 


101 


1 RP 


11 


; DE 


12 


1 FD 


13 


! FT 


14 


! IN 


15 


; is 


16 


1 MD 


17 


1 MK 


181 


1 RN 


19] 


s ss 


201 


1 ST 


211 


! TS 


22 


1 TY 


23' 


1 TC 


24] 


1 FS 


251 


1 CM 


251 


1 CT 


30 


1 SE 


39 


1 uu 


40 


1 N9 


41 


; RF 


4S 


BUILD 



(SH9RT P8RM) 



Hoi 



801*4 ! 


SEP 08* 


♦75 










80* 


OS 


00059 


01C34O4O A 


TEXTC 


• C» 


SI 


C8PY 


805 


05 


0005A 


01C4404Q A 


TEXTC 


ID! 


6! 


DELETE 


806 


05 


00058 


01C54040 A 


TEXTC 


IE' 


7J 


EDIT 


8O7 


Ok 


OOOgC 


OIE74040 A 


TEXTC 


IX* 


£! 


END 


808 


05 


0005D 


01D44040 A 


TEXTC 


»M» 


91 


MERGE 


809 


05 


00G5E 


0*E3F740 A 


TEXTC 


ITXI 


441 


TX 


810 




000000855 


CT8LSZ FQU 


$»CNAMETBL»1 






811 








# 








812 








* COMMAND BRANCH 


TABLE 






813 








« 








814 




05 


0005* 


CBRCHTBL FQU 


$•1 






815 


OB 


0005F 


6*00O0F7 


6 


PARSElBP 


11 


BP 


816 


0? 


00060 




D81 


M8DEi2 






817 


05 


00060 


6»0OO0F7 


B 


PARSElTA 


22 


TAB 


818 


OB 


00061 


6*000CF7 


B 


PARSElCR 


3$ 


CR 


819 


OB 


00062 


6*000103 


B 


PARSESBU1LD 


41 


BUILD 


880 


OB 


00063 


6*000131 


B 


PARSEJC8PY 


51 


C8PY 


881 


OB 


00064 


6*000181 


B 


PARSE jOELETE 


6J 


DELETE 


828 


OB 


00065 


6*000181 


B 


PARSE:EDIT 


71 


EDIT 


883 


OB 


Q0066 


6*000188 


B 


PARSEJEND 


83 


END 


824 




00067 


6*000150 


B 


parsejmerqe 


91 


merge 


885 


OB 


00068 


6*0OOOF7 


B 


PARSEiRP 


10: 


Rp 


886 


05 


00069 


6*000iAF 


B 


PARSEJDE 


US 


DE 


887 


OB 


0006A 


6*0001DC 


B 


parsejfd 


181 


FD 


SCO 


OB 


00068 


680001DC 


B 


PARSEJFT 


131 


FT 


889 


05 


0006C 


6*00020C 


B 


PARSCMN 


141 


IN 


830 


OB 


0006D 


6*Oon?0C 


B 


PARSE! IS 


15 1 


IS 


831 


OB 


0006E 


6*000810 


B 


parseimD 


161 


MD 


838 


OB 


0006F 


6*000210 


B 


PARSElMK 


17! 


MK 


833 


OB 


00070 


6*000228 


B 


PARSE8RN 


is; 


RN 


834 


05 


00071 


6*000245 


B 


parsejss 


191 


ss 


835 


OB 


00072 


6*000245 


B 


PARSEtST 


201 


ST 


836 


OB 


00073 


6*000269 


B 


parse:ts 


81 1 


TS 


837 


OB 


00074 


6*000269 


e 


parseity 


88 S 


TY 


o -3 JS 


05 


00075 


6*000262 


B 


PARSElTC 


83? 


TC 


839 


OB 


00076 


6*00OlDC 


B 


PARSElFS 


841 


FS 


840 


OB 


00077 


6*000193 


B 


PARSEJCM 


851 


CM 



(SH8RT 
(SH8RT 
(SH8RT 
(SH8RT 
(SH8RT 



FBRM) 
F©RM) 
PftRM) 

*8RM) 

FBRM) 



94 



M(H 



20144 SEP 08i 


i 


75 








841 


05 00078 




6*000192 




B 


PARSE:CT 


84? 


05 00079 




6»000l82 




B 


PARSEiSE 


843 


OF 0007A 




6*000248 




B 


parse 1 ju 


844 


05 00Q7B 




6*000188 




B 


PARSE:NS 


845 


05 0007C 




6*0QO25C 




B 


parse:rf 


846 


05 0007D 




6*000103 




B 


PARSEIBUILD 


847 


05 0007E 




6*000131 




B 


PARSEjCBPY 


848 


05 0007F 




6*000181 




B 


PARSElDELETE 


849 


05 00080 




6*000181 




B 


parseiedit 


850 


05 00081 




6*00018B 




B 


parsejend 


851 


05 00082 




6*000150 




B 


PARSEjMERGE 


852 


K 00083 




6*00025C 




B 


PARSEITX 


853 










# 




854 










# C8MMAND NUMBFR 


TABLE 


855 










* 




856 


05 


0008* 




CNMRTBL jrQU 


* 


857 


05 00084 




ou 


A 


DATA,1 





858 


05 00084 


1 


01 


A 


DATA,i 


1 


859 


05 00084 


2 






D01 


MGDEip 


860 


05 00084 


2 


0<2 


A 


DATA,1 


2 


861 


05 00084 


3 


0^ 


A 


datam 


3 


86? 


05 00085 




0* 


A 


data,i 


4 


863 


05 Q0085 


1 


os> 


A 


DATA,! 


5 


864 


05 00085 


2 


06 


A 


DATA, 1 


6 


865 


05 00085 


3 


07 


A 


DATA, 1 


7 


866 


05 00086 




0* 


A 


DATA,i 


8 


867 


OF 00086 


1 


0* 


A 


DATA,1 


9 


868 


05 00086 


a 


o* 


A 


DATA,1 


10 


869 


05 00086 


3 


o» 


A 


DATA,i 


11 


87c 


05 00087 




ol 


A 


DATA, 1 


12 


871 


05 00087 


1 


ou 


A 


DATA,1 


13 


87? 


05 00087 


2 


ofc 


A 


DATA,1 


14 


873 


05 00087 


3 


0* 


A 


DATA, 1 


15 


874 


05 00088 




10 


A 


DATA,i 


16 


875 


05 00088 


1 


11 


A 


DATA,i 


17 


876 


05 00088 


2 


12 


A 


DATA,i 


18 


877 


05 00088 


3 


13 


A 


DATA,1 


19 



25 J 

30 J 

39S 

401 

411 

4! 

5! 

*S 

7S 

8; 

44) 



CT 
SE 

JU 
N9 

RF 
BUILD 
C9PY 
DELETE 

EDIT 
END 

MERGE 
TX 



9b 



(TILLER) 
II BP 



2! 
3) 

4: 

5! 
61 

7} 
8! 
9S 

10 J 

in 
12: 
13; 

14$ 
151 
16 J 

17: 

18J 

191 



TAB 
CR 

BUILD 
C9PY 

DELETE 

EDIT 

END 

MERGE 

RP 

DE 

FD 

FT 

IN 

IS 

MD 

MK 

RN 

SS 



Hoi 



SOU* SEP Q8i 


878 


OB 


00089 


879 


OB 


00089 


880 


' j B 


00089 


88l 


OB 


00089 


88? 


OB 


0C08A 


883 


OB 


0008A 


884 


OB 


0008A 


885 


OB 


0008A 


886 


05 


00088 


887 


OB 


0008B 


888 


OB 


00088 


889 


05 


0008B 


890 


05 


0008C 


891 


OB 


0008C 


892 


OB 


0008C 


893 


OB 


0008C 


89* 


OS 


OOOgD 


895 


OB 


0008D 


896 







t 


75 




1* 


I 


1* 


2 


1* 


3 


1? 




1* 


1 


1* 


2 


l* 


3 


lfc 




2? 


X 


28 


2 


2* 


3 


o* 




Ob 


I 


0* 


a 


0^ 


3 


0» 




09 


i 


2<* 



96 



DATAjI 


L 20 


DATAjI 


L 21 


DATA* 1 


2? 


DATAh 


t 23 


DATA# \ 


L 2* 


DATAj « 


L 25 


DATA#1 


t 25 


DATA* j 


L 30 


DATA*! 


L 39 


DATA* 1 


L 40 


DATA, i 


I 41 


DATA* 1 


4 


DATA, 3 


L 5 


DATA,j 


L 6 


DATA,1 


L 7 


DATAjI 


L 8 


DATA,1 


L 9 


DATA,} 


L 44 


B8UNQ 


4 



201 


ST 






211 


TS 






221 


TY 






231 


TC 






241 


FS 






251 


CM 






25| 


CT 






301 


SE 






391 


JU 






40] 


Na 






41J 


RF 






4S 


BUILD 


(SH8RT 


FSRM) 


51 


C8PY 


(SN8RT 


F8RM) 


6! 


DELETECSHGRT 


F6RM) 


7$ 


EDIT 


{SHQRT 


F8RM) 


a: 


END 


CSHSRT 


F&RM) 


9l 


MERGE 


(SH&RT 


F8RM) 


44! 


TX 







HOI 20*44 SEP G8# »75 

898 
899 

900 
901 
90? 
9C3 
90* 
90S 
906 
907 
908 
909 
910 



911 
912 
913 
914 
915 
916 
917 
918 



919 

980 
981 
92? 
923 

*? G* *w 

925 

926 
927 
928 



05 0008* 
05 0008E 22500000 A 



05 0008F 
OS 00090 
05? 00091 
05 00092 

OF 00093 
05 00094 
05 00095 



6*700963 
00000002 A 
2*500005 A 
6*7on8lB 

6*700804 

OJ0001C8 02 
O^OOOOAA 



05 Q0C9* 
05 00096 2*500000 A 
05 00097 3*80OOCl 02 



05 00098 
05 00099 
05 0009A 
05 0009B 
05 0009C 
05 00090 

05 00091: 

05 0009F 
05 QOOAQ 
OF 000A1 
05 000A2 
OS 0C0A3 
05 0O0A4 
05 000A5 



6*700804 
0*0001C8 02 
0*000086 
0&00009C 
6 A 7oo963 
OM000003 A 
468000C1 02 
2*900001 A 
469000E6 02 
2*50O00# A 
6A70081B 
3^«0O0Cl 02 
3&9oocE6 02 
2*500005 A 



PAGE 

* pRecess imraLine commands # 
« 

PARSE 1 1 $CMND*STRG ECU * 
Ll'Pl 

BALjLNK newcdt&ntry 

DATA 2 

LI#Pl STRQ 
BALjLNK addcdtparam 

NXTPRM ERRC9il 

(ALPH^ICSIO) 



97 



BUILD NEW CDT ENTRY WITH CMND«0 



PUT STRING IN COT 



parsesucmndiintg 

Ll#Pl 
LWiTl 
NXTPRM 



BALjLNK 

DATA 

XW*Tl 

LI#T2 

XW#T2 

LIjPI 

BALjLNK 

STWjTi 

STWiTp 

LI#Pl 



EGU $ 



PARAMBUF 

ERRC9*J 

(AlPH#lCS50)jJ 

<STRG,#) 



NEWCDTENTRY 

3 

PARAMBUF 
1 

PRMBUFS2 

INTG 

ADDCDTPARAM 

PARAMBUF 

PRMBUFSZ 

STRG 



SAVE INTEGER 



BUILD NEW CDT ENTRY WITH CMND«0 

SAVE STRING ANq P UT INTG IN PARAMBgF 
SAVE PARAMBUF SUE F0R STRING ANU 

SET IT i 1 
PUT INTG IN CDT 

REST8RE STRING 
REST8RE PARAMBUF SIZE 
PUT STRING IN CDT 



MCI 



2CJ44 SEP 08* 


♦75 




929 


05 


00QA6 


6 A 70081B 




930 










931 


05 


000A7 


6*7oo8D4 






05 


0C0A8 


0100O1C8 


02 




05 


0O0A9 


O^OOOOAA 




93? 










933 










93<f 










935 


05 


OOOAA 


22300008 


A 


936 


05 


oooab 


3ii8oooCl 


02 


937 


05 


OOOAC 


3i86noE3 




938 


05 


OOOAD 


6*300082 




939 


05 


OOOAE 


6*3000AC 




940 


05 


OOOAF 


6A7ooD8P 




941 


05 


OOOBO 


000001C4 


02 


94? 


05 


00081 


6*000004 




943 










944 










94S 










946 


05 


00083 


2^400001 


A 


947 


05 


0O0B3 


725600EC 




948 


05 


000g4 


FS58ocAC 


02 


949 


05 


OOO85 


6/Q600EE 




950 










951 










95? 










953 


05 


0O0B6 


6*700963 




954 


05 


0O0B7 


0O00O002 


A 


955 


05 


000^8 


468oncCl 


02 


956 


05 


OO0B9 


2«J500004 


A 


niy W / 


05 


COOBA 


6*700818 




958 


05 


00088 


35>8000Cl 


02 


959 


05 


0008C 


6*0Q0CAA 




960 










961 










96? 










963 




05 


0008^ 





baulnk adocdtparam 

MTPRM ERPC9j| 
(ALPH,#) 



# C8MMAND NAME F8UNDI IDENTIFY IT 

* 

ICSlO LI#Xi ICTBLSZ 

LW,Ti PARAMBUF 

CV»#Ti ICNAMETBLiXl 

BE ICS20 

BDRjXi »»2 

BALiLNK TVPECERR 

DATA ERRC8 

B MASTERPARSER 



9** 



SEARCH TABLE F8R CMNO NAME 

FOUND « G8 PR8CESS 

L88P 

TYPE! »»CNJUNKN CMND* 

($8 T8 PARSER 



# C9MMAND IDENTIFIED? 38 PRQCESS LAST PARAMETER 

« 

ICS20 LI#X? 1 PUT CMND NUMBER IN CDT 

LB#Pl ICNMRTBLjXi 

STBjPi #CDTADR#X? 

FXU ICBRCMTBLiXi 68 PR8CESS LAST ?ARAM 
# 

• F8RM F8UND IS? C X • » PR8CESS THIS 



ICS50 BALiLNK NFwCDTENTRY 

DATA 2 

XW#Tl PARAMBUF 

LliPl INTO 

BAL#LNK ADOCDTPARAM 

STUjTi PARAMBUF 

B ICSlO 

# 

* FINISH TYPE ALPHA? . X /STR?/ 

# 

type$alpha EQU $ 



BUILD NEW CDT ENTRy WITH CmNDpO 

PUT INTG IN PARAMBUF AND SAVi NAME 
PUT INTG IN CDT 

REST8RE CMND NAM! 
G8 IDENTIFY CMND 



NCI 



20 U4 < 


SEP 08# 


f 75 




964 










965 


OF 


OOOBD 


6 A 70ft8D4 






OF 


C008E 


0*000249 


02 




OB 


COOBF 


o&ooooco 




966 


OF 


OOOCO 


2*500005 


A 


967 


OF 


OOOCl 


6*700818 




968 










969 










970 


OF 


0O0C2 


6*700804 






OF 


000C3 


0#800P39 


02 




OF 


000C4 


0*oonoiF 






OF 


Q0CC5 


OU000301 




971 










97? 










973 










974 




05 


O0OC6 




975 










976 


OB 


0O0C6 


6*70ngD4 






OF 


000C7 


0100024D 


02 




OF 


000C8 


O^OOOCCS 




977 


OF 


C00C9 


2^500004 


A 


978 


OF 


OOOCA 


6*70O8lB 




979 










980 










981 


OF 


OOOCB 


6 A 70O8D4 






OF 


ooocc 


0^800239 


02 




OF 


OOOCD 


O^OOOOIF 






OF 


OOOCE 


0UOOO301 




SB? 










983 










984 










98!? 




05 


OOCC 




986 


OF 


OOOCF 


2*200001 


A 


987 


OF 


OOODO 


6*00O0D2 




988 










989 










990 




05 


OOODI 





nxtprm 



BALjLNK 

nxtprm 



ERRP8iJ 
(STRGj#) 



9? 



STR3 

ADOCOTPARAM 

*ERRP4j J 

(SC9UjRESUMEiPARSIKQ),i 

(EN0#MA3TEREXECUT1VE) 



PUT STRING IN CDT 



* FINISH TYPE BETAI « X K 

# 

TYPE$BETA EGU $ 

N'XTPRM ERRP9ii 
UNTG,») 



PUT CBUNT IN CDT 



LI*P1 INTG 

BAL#LNK ADDCDTPARAM 

NXTPRM *ERPP4#4 

<$C81,RESUME*PARSING)#J 
(ENDjMASTEREXECUTIVE) 



* INTRALlNE C6MM A NDS f D» 9R »S» FBUND: CH&CK THAT FORM IS? /ST*!' D(S) 
# 

TYPEillCMNDSO EQU * 

Ll'X4 1 USE X4«l FSR 'D* 

B TYPE*UCMND*S+1 

# 

TYPE*HCMND*S EGU * 



Hoi 



20144 < 


SEP 08* 


t 75 














991 


0? 


OOODl 


2S200G00 


A 






Ll#X4 





USE X4P0 F6R iS» 


992 


05 


000D2 


22300003 


A 






LI/X1 


3 




993 


OP 


000D3 


F*860CAC 


02 






LB#Tl 


*cqtadr#xi 


GET M 8F PARAMS iNi 


994 


05 


000D4 


21800003 


A 






CI#Tl 


3 


IS # 8F PARAMS * 3 


995 


05 


000D5 


6»30fiCDE 








BE 


ICS90 


YES • F8RM MUST WES 


996 


05 


000D6 


2^300004 


A 






LI#X1 


4 




997 


05 


0O0D7 


F88600AC 


02 






L6#Tl 


♦CDTAOR#Xi 


N8 • GET TYPE 8F PA 


998 


05 


OOODs 


21800005 


A 






CUTl 


STRG 


IS TYPEt'STRlNG* 


999 


05 


000D9 


6*3000DE 








BE 


ICS90 


YES • F8RM MUST t»El 


1000 


05 


OOODA 


33EQO0E5 


02 






MTWj»2 


PARAMPSN 


N8 • ADj PARAM PSN 


1001 


05 


OOQDB 


6*7ooD99 








BAL#LNK 


TYPEPERR 


TYPEI I.P1JN6T STRN 


100? 


05 


COODC 


0^000249 


02 






DATA 


ERRP8 




1003 


05 


OOODD 


6*000004 








B 


MASTERPARSER 


G8 T8 PARSER 


1004 










« 










1005 










# 


F&RM 


8F »D' «R 


»s» is ex: G8 


PARSE FURTHER 


1006 










# 










1007 


05 


COODE 


6»04OCDF 




ICS90 


B 


*+l*X4 




1008 


05 


OOOOF 


6«oono8D 








B 


TYPEfALPHA 




1009 














MXTPRM 


*ERRP4ii 




1010 
















<SC8URESUME$PAR9ING),J 


1011 


05 


OOOEO 


6A7008D4 










(END^MASTEREXECUTIVE) 




05 


OOOEl 


0*800239 


02 














05 


000E2 


0*0OO0lF 
















05 


C00E3 


OU000301 














101? 










• 










1013 










« 


INTRAUINE COMMAND NAME TABlE 




1014 










« 










1015 




05 


OOOE^ 




ICNAMETBL 


ECU *•! 




1016 


05 


0O0E4 


01C44040 


A 






TEXTC 


10' 


311 D 


1017 


05 


000E5 


01C5404Q 


A 






TEXTC 


*E» 


321 E 


1018 


05 


0O0E6 


01C64040 


A 






TEXTC 


?F» 


33 J F 


1019 


05 


0O0E7 


Q1D34040 


A 






TEXTC 


»L> 


34 J I 


1020 


05 


000E8 


01D64040 


A 






TEXTC 


i8» 


35? e 


1021 


(}5 


C00E9 


01D74Q40 


A 






TEXTC 


ipi 


36? P 


1022 


05 


OOOEA 


01D94O4O 


A 






TEXTC 


»R f 


37? R 


1023 


05 


COOEB 


01E24C40 


A 






TEXTC 


t s» 


381 S 


1024 




OOOQCOO* 




ICJBLSl 


EGU 


$.ICNAMETBU*1 





100 



CDT 



N /STl/ DCS) 



/ST1/ D(S) • 

F6R ERR8R MSG 



HOI 



20 8 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 

1041 
1042 

1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 



44 SEP 08# '75 



1Q1 



05 
05 OOOEC 
OS OOOEC 
OF OOOEC 
05 OOOEC 
OS OOOEO 
OS OOOED 
OS COOED 
OS OOOED 
OS OOOEE 



05 

05 
OS 
OS 
OS 
OS 
OS 
OS 



05 
OOOEF 
OOOPQ 
OOOFl 
0O0F2 
000F3 
0O0F4 
0O0F5 
00QF6 



OOOEL 
OU 



2U 



3 21 
2* 

1 23 

2 24 

3 2b 
26 



OOGEt 

6«oanncF 
6»0000BD 
6*00O0BD 
6«00O0C6 

6*OOf5QBO 
6«00O0BD 
6*00OOC6 

6«oonoDi 



INTRALINE COMMAND NUMBER TABLE 



ICNMRTBL 



FQU 

DATAj 

DATA, 

DATA, 

DATA, 

DATA, 

DATAj 

DATA, 

DATA, 

DATA, 

B8UND 



* 



31 

32 

33 

34 

35 

36 

37 

38 

4 



INTRALINE CBMMAND BRANCH TABLE 



IC3RCHTBL 



EQU *-l 

TYPE$nCMND«D 

TYPESALPHA 

TYPESALPHA 

TYPE$BETA 

TYPE*AlPHA 
TYPE$ALPHA 
TYPE$BETA 

TYPE$IjCMND$S 



(FILLER) 
31} D 



321 
33} 

34; 
35 J 
36} 

37} 

38 * 



31 S 

32: 

33 J 

34! 
35 1 

36; 
37; 

38 * 



Hoi 



80144 S 


5EP 08* 


• 75 




1051 










1052 










1053 










1054 










1055 










1056 










1057 










1058 










1059 










1060 




05 


QGCF? 




1061 




05 


00CF7 




1062 




05 


O00F7 




1063 




05 


00QF7 




1064 


05 


0O0F7 


6 A 7on963 




1065 


05 


000^8 


00000001 


A 


1066 


05 


000^9 


6^700834 




1067 










1068 


05 


OOQFA 


6*7COgD4 






05 


OOOFB 


0^000239 


02 




05 


OOOFC 


O&OCOCFD 




1069 


05 


OOOFD 


225QO0C6 


A 


1070 


05 


OOQFE 


6A70O81B 




1071 










107? 










1073 


05 


OOQFF 


6^700804 






05 


00X00 


0*800239 


02 




05 


COlCl 


0*000035 






05 


00102 


00000301 
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* PARSE F6RMJ BP BMBFF) * 

# PARSF F6RHJ TA F<M#S> # 

# PARSE F8RMJ RP 8M9FF) # 

* PARSF F9RMj CR BMGFF) * 
*#######*########♦«♦##*♦#♦♦♦# 

« 

* 



1U2 



PARSESRP 
PARSE?BP 
PARSEJCR 
PARSESTA 



rGU 
EOU 
EQU 

FGU 

BALjLNK 

DATA 

BAL#LKK 

NXTPRM 



Ll#Pl 

BAL#LNK 
NXTPRM 



* 

i 

9 

NEWCDTfcNTRY 

1 

CHECKiCOTENTRY 
ERRP4*1 
<AIPH,#) 



BUILD NEW CDT ENTRY 

MAKE SURE fBPi IS FIRST CMND 



ALPH 

ADDCDTPARAH 

♦ERRP4#; 

<SCeL#lLGL«S£MlC8lBN)jl 

<end#masterexecutive) 



PUT ALPHA TEXT IN CDT 



HOI 20?44 SEP C8# '75 
1074 
1075 
1076 
1077 
1078 
1079 

1080 05 QG1Q3 

1081 OB 00103 6*700963 
108? OS 00104 OU000003 A 

1083 OS 00105 6*700834 

1084 05 00106 6*70083* 

1085 05 001C7 28500001 A 
108ft 05 00108 6A70081B 
1087 

1088 

1089 

1090 05 00109 6*700804 

05 OOlOA 0*800239 02 
05 OOiCB 0?00010E 
05 OOlOC 0*000035 
05 OOlCD OU000301 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 



05 QOlOt 



1099 


05 


OOlOE 




05 


OOlOF 




05 


OOilO 




05 


com 




05 


00112 




05 


0OU3 


1100 


05 


00114 


1101 







6A700804 
04Q00230 
04000114 
0/00012C 

0*000115 
0*000129 
6*700287 
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# PARSE F6RMS BUILD F!D<«N(j!)) ♦ 

# 



103 



PARSEJBUILD 

BALiLNK 

DATA 

BAL#LNK 

BAL#LNK 

LI#Pi 

BAL#LNK 

NXTPRM 



GET$SEQ*INCR 

NXTPRM 



02 



ecu $ 

NEWCDT&NTRY 

3 

CHECKtCDTENTRY 

GETFILEID 

NAME 

ADDCOTPARAM 
♦ERRP4J I 

<SC&UILGL$SEMICeLeN),j 
(END # MASTEREXECUTIVE) 



BUILD NEW CDT ENTRY 



HAKE SURE f BUILD' 

GET FILE ID 
PUT IT IN CDT 



is first cmnd 



equ $ 

ERRPS^i 

(INTQj*)jj 

(CeMjPBU05)#i 
(S£Q#PBU10)#J 
(SEQ2*ILGL$SEQ2) 



(ENTER HERE F6R F8RMI N{,I) ) 



BALiLK'K ADJINT 



MCI 



20144 s 


SEP OS* 


*75 














HOP 










# 


PUT 


SEQ * IN CDT 




1103 










* 










1104 


OF 


00115 


2£5oooc2 


A 


PBU10 


LIjPi 


SEQ 


PUT SEQ # IN CDT 


1105 


0? 


00116 


6A70O81B 








BALjLNK 


ADDCDjPARAM 




1106 










# 










1107 










# 










1108 










* 










1109 




05 


0011? 




get$increment 


ECU * 


(ENTER MERE F8R 


11 in 














NXTPRM 


#ERRP4jJ 




nil 
















(ceMi#j # j 




ill? 
















<SC8LjlLGL$SEMIC8L6N), j 


1113 


05 


00117 


6 A 70O8D4 










(END#MASTEREXECUTIVE) 




OF 


00118 


0*800239 


02 














OF 


00119 


0700011C 
















05 


OOllA 


0*000035 
















05 


COllB 


0^000301 














1114 




05 


OOllW 




FBU3G 


FQU 


* 




1115 














nxtprm 


ERRP6jJ 




1116 
















(INTO«t)jl 




1117 


OF 
05 
OF 

05 


OOllC 
OOllD 
OOllE 
QOilF 


6 A 7008D4 
0*000241 
0*000120 
0*000121 


02 








<SEQ#PBU30) 




1118 


OF 


00120 


6 A 700287 








BAL#LNK 


ADUINT 




1119 










# 










1120 










« 


PUT 


INCREMENT 


IN CDT 




1121 










# 










11?? 


OF 


00121 


22500002 


A 


PBU20 


LliPl 


SEQ 


PUT INCR IN CDT 


1123 


OF 


00122 


330000C1 


02 






MTW#0 


PARAMBUF 


MAY N8T BE ZERSt 


1124 


OF 


00123 


6*3qo129 








BEZ 


!L<3LtSEQ2 




1125 


OF 


00124 


6 A 7008l8 








BALjLNK 


ADDCDTPARAM 




1126 














NXTPRM 


#ERRP4#J 




1127 
















(SCeL#lLGL$SEMIC8L9N)iJ 


1128 


OF 


00125 


6 A 7oofiD4 










(END#MASTEREXECUTIVE) 




05 


00126 


0*800239 


02 














05 


00127 


0*000035 
















05 


00128 


00000301 















104 



F8RM* (it) ) 



MCi 20144 SEP C8j »75 



105 



1129 










* 




1130 










# 




1131 










* 




113? 




C5 


ociss* 




IIGUSEQ2 ECU • 


1133 


05 


00129 


6 A 7onD99 






BALjLNK typeperr 


1134 


05 


0012A 


OU000250 


02 




DATA ERRPlO 


1135 


05 


0012B 


6*000004 






B HASTERPARSER 


1136 










# 




1137 










* 


FMER HERE FOR FORM J 


1138 










# 




1139 


05 


ooiac 


225oo3E8 


A 


PBU05 


LIjPI 1000 


1140 


05 


0012D 


3t>50O0Cl 


02 




STW#Pt PARAMBUF 


1141 


05 


0012E 


2*500002 


A 




LI#Pi SEQ 


1142 


05 


00l2 F 


6*7on8lB 






BALjLNK ADDCDTPARAM 


1143 


05 


00130 


6*oooiiC 






8 PBU30 



TYPES fPNULGL SEQ 41* 



6© TQ PARSER 



( Mil ) 



6NE IS DEFAULT SEq * 
PUT SEQ IN CDT 
GET INCREMENT 



HOI 



20144 

1144 

1146 
1146 

1147 
1148 
1149 
1150 
1151 
115? 
1153 
1154 
1155 
1156 
1157 
1158 



1159 

1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 

1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 



SEP 08 j '75 



35 

'35 

35 



05 

00131 
C0132 
00133 
00134 
00135 



35 


00136 


35 


00137 


35 


00138 


35 


G0139 


35 


0013A 


35 


00138 


35 


0013C 


35 


0013D 


35 


CC13E 




05 


35 


0013? 


'35 


00140 


135 


00141 


'35 


00142 


'35 


00143 


'35 


00144 


35 


00145 




05 


(35 


00146 


(35 


00147 


(35 


00148 



00131 

6*700963 
0U0OO005 A 
6*700834 
6*7on83A 
2*500001 A 
6*7on8lB 

6*7on8D4 
010001C8 02 
0600013A 
3*80O0Cl 02 
31800015 02 
6*30013F 
3**00012 02 
3*8000C1 02 
0013^ 

2*500006 A 
6A70O81B 

3*800GC1 02 

31800012 02 

6*300149 

31800013 02 
6*300149 

00146 

6 a 7qoD8F 

0000O1C8 02 
6*000004 
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* PARS? F9RMJ C8PV FlDl T6 FiD2(*N(jI>> * 
«##«•##»#««*«•*«*«*««***#*«*«♦«**##*#*##*### 



1U6 



PARSEJC8PY 

BAL#LMK 
DATA 
BALjLKK 
BAL#LNK 

Ll' p X 
BALjLNK 

NXTFRM 



LWiTl 
CW#Tl 

BSE 
LW#Tl 
STW#Ti 
PC03 ECU 

Ll#Pl 

BALjLNK 

LW#Tl 

CW#Tl 

BE 

BE 

PC95 ECU 

BALjLNK 

DATA 

B 



EQU $ 

NEWCDTENTRY 

5 

CHECKiCDTEKTRY 

GETFILEID 

NAME 

ADOCDTPARAH 

ERRC9W 

<ALPMj#> 



PARAMBUF 

XJTa 

PC93 

X!»N 
PARAMBUF 

$ 

ALPH 

addcdtparam 

PARAMBUF 
Xj©N 

PC810 

XjSVER 

PC810 

$ 

TYPECERR 

ERRC9 
MASTERPARSFR 



BUILD NEW CDT ENTRY 



MAKE SURE tC8PY» 
GET FILE ID 1 
PUT IT IN CDT 



tS FIRST CMND 



PUT «8N<0VER)» JN CDT 
D8ES PARAM2»t9N» SR »6VER* 

N9 - TYPE! MCNULGL SYNTAX? 
FXIT IB PARSER 



* GET 2ND FID AND THEN G8 PR8CFSS F&RM: (,N<*I)) 



MCI 20U4 SEP CS* '75 



1179 


05 


00149 


6*70083A 


1180> 


0* 


OOHA 


6*7on8lB 


1181 








118? 








1183 








1184 


OB 


00H8 


6*700*0* 




OR 


OOHC 


0^800239 




OP 


OOUD 


0?00010E 




055 


OOHE 


0&00OC35 




OS 


OOHF 


00000301 



PC810 BALiLNK GETFlLElD 

BAUINK ADDCOTPARAM 

NXTPRM #ERRP*m/ 

(CeM,GET*SEQ*INCR)*J 

(SC8L*IlQUSEM!ceLBN>#J 

(END,MASTEREXECUTIVE> 



GET PILE ID 2 
PUT IT IN CDT 



1Q7 



02 



1185 



Hoi ?0i44 SEP 08* '75 
1186 
1187 
1188 
1189 

1190 
1195 
119? 05 Q015U 

1193 05 00150 6*7qo963 

1194 OS 00151 0U00O006 

1195 OS 0015? 6*700834 

1196 05 00153 6*70083A 

1197 OF 00154 2*500001 

1198 05 00155 6*700818 
1199 

1200 

1201 
1203 



PAGE 



iua 



1204 
1205 
1206 
1207 
1208 



1209 
1210 
1211 

1212 
1213 
1214 



05 00156 
05 00157 
05 00158 
05 00159 
05 C015A 



05 00158 
05 0015C 
05 0015D 
05 0015E 
05 0015F 

05 00160 
05 00161 

05 00162 
05 00163 



6*7oo8D4 
038Q0239 02 
0/00015B 
06000167 
0*000035 



6 A 7oo804 

0300023D 02 
0*000160 
0^000161 
0^000162 

6*700287 
6*700288 

22500003 A 
6*7oo8lB 



# PARSE F6RMJ MERGE FI0K#NK»N2)) INT8 FID2#N 3 < »N* > < j I ) # 



PARSEtMERGE 

BALjLNK 

DATA 

BAL#LNK 

BALjLNK 
Ll#Rl 

BALjLNK 

« 

nxtrrm 



PME5 
PME15 



IsiXTPRM 



BALjLNK 
BAL/LNK 

LliPl 
BAL#LNK 



ECU $ 

NEWCOTENTRY 

6 

CHECKiCDTENTRY 

GETFlLEID 

NAME 

ADDCDTPARAf* 

*ERRP4j^ 
CC9Mj*)#J 

<AlPHjpME20)jj 
(SCeuiLGLtSEMICGLBN) 



SET UP NEW ENTRYt 

MUST BF FIRST, 

GET THE FIDj 

AND ADD IT T8 THE. CDTt 



CHECK F&R SPECIFIC RECORD RANGE, 



ERRPSii 
UNTG,#),j 

(SEQjPMESJjJ 
<SEQ2jPMEi5> 



CONVERT SEQUENCE SPECIFICATION, 



ADJINT 
REPSEQ 

SFQ2 
ADDCDTPARAM 



ADJUST INTEGER, 
DUPLICATE SINGLE VALUE. 

PUT SEQ PAIR IN CDT» 



MCI 20144 SEP 08j ' 75 
1215 
1216 



1217 
1218 
1219 
1220 
1221 
1222 

1223 

1224 

1225 
1226 
1227 
1228 

1229 
1230 
1231 



1232 
1233 
1234 

1236 



1237 
1238 

1239 
124Q 
1241 



OS 00164 
05 00165 
OS 00166 
OB 00167 

OR 00168 

05 00169 
OS 0016A 
OP 0016B 

05 0016C 
05 C016D 
OF OOUE 



05 

05 
05 
05 
05 



05 

05 

05 
05 
05 



0016F 

00170 
00171 
00172 
00173 



00174 
C0175 
00176 
00177 
00178 



05 00179 
05 0017A 
05 0017B 

05 0017C 



6 A 7on804 
010001C8 
06000167 
22500006 
6*7oo8lB 

3£80O0Ci 
31800014 
6*300146 



02 



02 

02 



6*70O83A 
225QO001 A 
$*70O8lB 



6A7008D4 
0^00OlC8 02 
0?000174 
0U0OO17E 
0*000035 



6A70O8D4 

0*000230 02 
0*000179 
0200017A 
0*000178 

6A700287 
6A70O28B 
2*500003 A 
6A70081B 



PME2C 



PME30 

PME35 



MXTPRM 



LIjPI 
BAULNK 

L>#Tl 
CW,Tl 

BNE 

BALilNK 

Ll#Pl 
BALjLNK 

NXTPRM 



NXTPRM 



BALjLNK 
BALjLNK 
Ll#Pl 
BAL*LNK 



ERRC9j| 

<ALPH,#) 



ALPH 
ADOCDTPARAM 

PARAMBUF 

XilNTS 

PC85 

GETFIlEID 

NAME 

ADDCDTPARAM 



VERIFY HNTB» NEXTt 

ADO STRING TQ C^T , 

MAKE SURE 8F PARAMETER, 

BRANCH 8N ERRQRt 

C6ULECT Flpg 
AND ADD T8 CPTt 



109 



ERRC9,J 
(C8Mj#)#j 
(ENDjPME40)i j 
<SC&IjILGLssSEMIC818N> 



VERIFY PRESENCE *F DESTINATION 

SEQ *• 



ERRPSj J 
MNT<bt)jj 
(SEQ#PME30)/I 
<SEQ2jPME35) 



CONVERT SPECIFICATI6N. 



ADJINT 
REPSEQ 
SEQ2 
ADDCDTPARAM 



ADD T8 CDTi 



HOI SOU* SEP 0*# <75 



1242 
1243 

1244 
1245 

1246 
1247 



OS 0O17D 



05 

05 

05 



0017E 

0017F 
OOiSQ 



6»oomi7 

6*7on099 
QU00O271 Q2 
6*000004 



* 
PME4C 



B 

BAL#LNK 
DATA 
B 



GETSINCREMENT 

TyPEPERR 
FRRP17 
MASTERPARSER 



HO 



S6 PR8CESS pasSI^tE INcRCMENTt 



HOI 



2014* 
1248 
1249 
1250 
1251 
125? 
1253 
1254 
1255 
1256 
1257 
1258 
1259 

1260 
1261 
126? 
1263 
1264 
1265 



SEP 08# '75 



05 00181 

05 00181 
05 00181 6 A ?00963 
OF 00182 OUOOOOOl 
05 00183 6*700834 
05 00184 6*70ft83A 
05 00185 2*500001 
05 00186 6*700818 



05 00187 6*700SD4 

05 00188 0*800239 

05 00189 0*000035 

05 0018A 00000301 
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* PARSE F8RMSJ DELETE: FID * 

* EDIT FID * 

# 



111 



PARSE JDELFTE 

PARSEJEDIT 

BALjLNK 

DATA 

BALjLNK 

BAUINK 

Ll#Pl 

BAL#LK'K 

NXTPRM 



02 



EQU * 

EQU * 

NEWCDTENTRV 

1 

CHECKiCDTENTRY 

QETFILE1D 

NAME 

ADDCDTPARAM 

*ERRP4# I 

(SC8l#ItQLiSEMICeL8N)ii 

(ENDiMASTEREXECUTIVE) 



BUILD NE* CDT ENTRY 

MAKE SURE »DELETt (EDIT ) i 
GET FILE ID 
PUT IT IN CDT 



IS 1ST tMND 



HOI 



20J44 SEP 08j »75 



1266 
1267 
1268 
1269 
1.370 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 



1281 



05 Q018» 

05 0018» 
05 0018B 6 A 7on963 
05 0018C ouoooooo 
05 0018D 6*7oo83* 



OS 0018E 6^700804 

05 0018F 0«00OlC8 

05 00190 0*000035 

05 00191 00000301 



02 



PAGE 

* PARSE F8RMSJ END * 

# NS * 

# 
* 

PARSE JEND EGU * 

PARSE IN6 ECU $ 

6AL#LNK NEWCDTENTRY 

DATA o 

BALjLNK CHECKiCDTENTRY 

NXTPRM ERRC9#i 

(SC9l*XL0LtSEMICeLdN)jJ 
(ENDiMASTEREXECUTlVE) 



112 



BUILD NEW CDT ENTRY 

MAKE SURE tEND(N»ji IS FIRST C*NP 



HOI 20*44 SEP 08# '75 
1282 
1383 

1284 

128?? 
1286 
1287 
1288 
1 283 

1290 
1291 
1292 

1293 
1294 
1295 
1296 
1297 
1298 
1299 



1X3 



1300 
1301 
1302 

1303 

1304 

1305 
1306 
1307 
1308 

1309 



05 Q019* 
05 00192 3^1cnlAl 02 

05 Q0194 
OF 00193 6*700963 
05 00194 00000002 A 
05 00195 6*700834 



05 
05 
05 
05 
05 
05 



05 

05 



05 
05 
05 
05 
05 



00196 
00197 
00198 
00199 
0019A 
0019B 



0019C 
0019D 



C019E 
0019F 
OOlAO 
OOlAl 
001A2 



6A70O8D4 

0^000230 02 
0^00Ol9B 
0^000190 
0^000129 

6 A 700?87 



2*500002 
6A70081B 



6A7008D4 
0^800239 
0?0001A3 
O^OOOIAC 
OUOOOIAC 



02 



PAGE 

# PARSE F8RMS CM NjC # 

* PARSE P6RM: CT N*C * 



PARSHCT 



PAR8EICM 



* 
« 
* 
PCM10 



FGU 

mTw*i 

FCU 

BALiLKk 
DATA 
BALjLNK 

NXTPRH 



SET 

AND 



TYPE 
TURN 



P1AG 
CMNP 



9N 
INT8 



BUILD NEW CDT ENTRy 

MAKE SURE iCMi IS FIRST CMND 



CT$FLA6 

$ 

NEwCDTENTRY 

2 

CHECKiCDTENTRY 

ERRP5#I 
(INTG,#),j 

(SEQ#PC*10)/J 
(SEQ2*1LGL*SEQ2) 



BALjLNK adjint 
SEQ GIVENI PUT IT IN CDT AND PROCESS C8LUMN NyM»ER 

PUT SEQ # IN CDT 



f CM t 



LI#P1 

BALjLNK 

NXTPRM 



SEQ 
ADDCDTPARAM 
♦ERRP44* 
(C9M # #)ji 

(SC6L*PCM20)j; 
(ENDjPCM20) 



1310 



NXTPRM ERRP7jJ 



MCI 20 J 44 SEP 08# *75 



1311 



1312 
1313 
1314 
1315 
1316 



1317 
1318 
1319 
1320 
1321 
1322 



05 
05 

05? 
05 
05 



001A3 
G0U4 
C01A5 
001A6 
001A7 



05 001A8 
05 001A9 
05 OOlAA 
05 OClAB 



05 001AC 
05 OOlAD 
05 OOlAE 



6A7onSD4 
0*000245 
0*0001A6 
2*500004 
6 A 7008l8 



6 A 7oo*D4 
0*800239 
0*000035 
0U00O301 



6 A 70nD99 
0^000271 
6*00000^ 



02 



02 



(INTQj#) 



li4 



LliPl INTQ 

BAL#LNK ADOCOTPARAM 

NXTPRM #ERRP4j> 

(SCei#ItGl*S£MIC0LeN),J 
(END#MASTEREXECUTIVE) 



PUT C6L* * IN CDT 



ERR0R1 SECGNB PARAMETER MISSING 



U2 



PCM20 



BALiLNK 
DATA 

B 



typeperp 

ERRP17 
MASTERPARSER 



TYPE! »*PNIPARAM MISSING* 
G© T8 PARSER 



HOI 



20 J 

1324 
1325 
1326 
1337 
1328 
1329 
1330 
1331 
133? 
1333 
1334 
1335 
1336 

1337 
1338 
1339 

1340 
1341 
1342 



44 SEP 08^ '75 



1343 
1344 
13455 
1346 

1347 
1348 

1349 
1350 

1351 
1352 
1353 
1354 

135R 



05 OOlAK 
05 OOlAF 6*7on963 
05 OOlBQ OU000001 A 
05 OOlBl 6*000184 



05 QG1BS 
05 001B2 6A7Q0963 
05 001B3 OU000003 A 



05 0OJB4 
05 001B5 
05 C01B6 
05 0OIB7 
05 001B8 



05 00189 



05 001BA 



05 OOlBB 
05 OOlBC 



6A700804 
0^000230 02 
0*000189 
O^OOOlBA 
0*00OlBB 



6A700287 



6*700288 



6*700834 
32800005 A 



PAGE 

# PARSE F9RMSI DE N(-M) # 

♦ SE N(»M)(«C(#D) ) * 



115 



PARSEiDF FGU 

BALjLNK 
DATA 



PARSE8SE 



ECU 

BALjLNK 
DATA 
NXTPRM 



newcdtentry 

1 
PARSE!SE*2 



newcdtentry 

3 

ERRPSjJ 
(!NTQjPDES)#i 
(SEQjPDEtO)JJ 
(SEQ2jPDE15) 



BUILD NEW CDT ENTRY 



BUILD NEW CDT ENTRY 



♦ SEQ, * IS AN INTEGER* ADJUST IT 
* 

PDE5 BALjLNK ADJINT 
« 

♦ ONLY ONE SEQ. « GIVEN: DUPLICATE IT 
* 

PDE10 BALjLNK REPSEQ 
# 

♦ PUT SEQt * PAIR IN CDT AND CHECK IF C6MMAND IS FI*ST F6« »DE f 
* 

PDE15 BALjLNK CMECKlCDTENTRy MAKE SuRE (DE(SE)i IF Fl^ST CMND 
LW/Tl Pi SAVE CMND * 



HOI 



20*44 S 


SEP 08, 


175 








1356 


05 


OOlBD 


22500003 


A 


LI/PI 


SEG2 PUT SEQ PAIR 


1357 


05 


0018E 


6^7on8lB 




BALiLNK 


ADOCOTPARAM 


1358 


05 


QOlBF 


2180O01E 


A 


CI#Tl 


FlRSTgMCMNO IS CMNDt'DE! 


1359 


05 


ooico 


6* ionics 




BGE 


PDE20 NB » CMNDf«SE» 


1360 










NXTPRM 


#ERRP4j; 


1361 












(SCaLjILQL*SEMIC8LeN)jJ 


1363 


05 


OOlCl 


6*7on8D4 






(END^mASTEREXECUTIVE) 




05 


001C2 


Q28Q0239 


02 








05 


001C3 


0*000035 










05 


001C4 


00000301 








1363 










* 




1364 










♦ FINISH UP »SF' 




1365 










# 




1366 










PDE20 NXTPRm 


♦ERRP4j; 


1367 












(C8M # #)j j 


1368 












(SCeL#RESUME*PARSING),i 


1369 


05 


001C5 


6*7Q08D4 






(E!M0#MASTEREXECUTIVE) 




05 


001C6 


0^800239 


02 








05 


001C7 


O^OOOlCA 










05 


001C8 


0*00O0lF 










05 


001C9 


00000301 








1370 










nxtprh 


ERRP7ji 


1371 


05 


COlCA 


6 A 700gD4 






(!NTQj«> 




05 


OOlCB 


01000245 


02 








05 


OOlCC 


O^OOOICD 








137? 


05 


OOlCD 


28500004 


A 


Ll*Pl 


INTG 


1373 


05 


OOlCE 


6*700818 




BALiLNK 


ADDCDTPARAM PUT 1ST C8L # 


1374 










NXTPRM 


*EPRP4jJ 


1375 












<C9M##)#1 


1376 












(SC©l#RESUME*PARSlNG),j 


1377 


05 


OOiCF 


6 A 700«D4 






(ENDjMASTCREXCCUTIVE) 




05 


OOlDO 


0*800239 


02 








05 


OOlDl 


7 0OOlD4 










05 


00102 


C*00001F 










05 


001D3 


0UO0O301 








1378 










NXTPRM 


ERRP7#J 


1379 


05 


001D4 


6*7 o8D4 






(INTG,*) 



116 



IN COT 



HOI 



20 8 44 REP 08 j t 75 





(35 00 IDS 


01000245 02 






05 00106 


Q*0001D7 




1380 


OF 00107 


6A70081B 


BALjLNK 


1381 






nxtprm 


138? 








1383 


05 001D8 


6 A 7008D4 






OF 00109 


0^800239 02 






OF OOlDA 


OSOOOOIF 






OB OOlOB 


0U00O3O1 





117 



ADOCDTPARAh 

♦ERRP4jJ 

(SWLjRESUME$PARSIN6)jJ 

(ENDjMASTEREXECUTIVE) 



PUT 2ND C6L * IN CDT 



HC1 20144* SEP 08# '75 
1384 
1385 
1386 
1387 

1 JOn 

1389 
1390 

1391 05 

1392 05 

1393 05 

1394 (3?? QOlDC 

1395 05 OOlDD 

1396 05 OOlOE 

1397 
1398 
1399 
1400 



1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 

1410 
1411 
1412 
1413 
1414 



05 QOlDF 
05 COlEo 
05 OOlCi 
05 001E2 
05 001E3 
05 001E4 



05 001E5 



05 001E6 
05 001E7 



05 0OIE8 
05 001E9 
05 001EA 



OClD^ 

OOlD^ 

6 A 7or>963 
00000004 A 

6*7(30834 



6*70f)8D4 

0*000230 02 

0*000lE4 

O^OOOlEB 

0*00niE6 

6*700287 



6A70028B 



22500003 A 
6A70O81B 



6A7008D4 
03800239 02 
0?0001ED 



PAGE 
########♦*####♦♦##♦######♦#»#######**###♦## 

* PARSE F8RMSJ FD M «M )s /STRQ/ ( #C( jD > ) # 

* FT NUM),/STRG/(,C<jD)) * 

* 

PARSEJFD FQU * 

PARSESFS FQU $ 

parsejft eou $ 

BAULNK newcdtemry 

DATA 4 

BALjLNK CHECKiCCTENTRV 

NXTPRH ERRP5*I 

CINTGj#)jj 

(SEQ#PFD10)#i 
(SEQ2jPFD!5) 
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BUILD NFW CDT ENTRY 

MAKE SURE iFD(FT)i IS FIRST CMND 



BALjLNk ADjINT 

# SNLY ©NE SEG * GIVEN! DUPLICATE IT 
# 

PFD10 bALjLNk REPSEQ 
# 

* PUT SEG U PATR IN CDT AND GET ?ND PARAMETER 
♦ 

PFD15 LliPl SEQ2 PUT »SEQ * PAIR? PARAM IN CDT 

BALjLNK ADDCDTPARAM 
NXTPRM #ERRP4*i 

(C6M # «) # j 

(SC8L*PFD?0>*; 

(ENDiPFD20> 



Hcl 20*44 ! 


SEP 08* 


»75 












OS 


OOlEB 


o«ooopo9 












OB 


OOlBC 


00000209 










1415 












nxtprm 


ERRP8#i 


1416 


OF 


QClED 


6*7on8D4 








(STRGj*) 




05 


GOlEE 


01000249 


02 










05 


OOlEF 


0&0001FO 










1417 


05 


OOlPO 


2^500005 


A 




Ll#Pl 


STRQ PUT ' 


1418 


05 


OOlFi 


6*7on8iB 






BAUjLKK 


addcdtparam 


1419 










* 






1420 










# 






1421 




05 


0C1F« 




GET$C8L**PAIR 


EQU $ 


1422 












nxtprh 


#ERPP4*J 


1423 














tc$n,*)it 


1424 














<SC&LjILGL$SEMIC&teN),J 


1425 


05 


Q01F2 


6 A 7oo8D4 








(ENDjMASTEREXECUTIVE) 




05 


001F3 


0*800239 


02 










05 


001F4 


Q70001F7 












05 


001F5 


0*oono35 












05 


001F6 


0U00O301 










1426 












nxtprm 


ERRP7*i 


1427 


05 


001F7 


6 A 7OO804 








<!NTQi#) 




05 


001F8 


0*000245 


02 










05 


Q0JF9 


0*0001FA 










1428 


05 


OOi^A 


2^500004 


A 




LI#Pl 


INTG PUT 1 


1429 


05 


OOlEB 


6A70081B 






BALjLNK 


ADDCDTPARAM 


1430 












nxtprm 


#£RRP4jJ 


1431 














(C8M##)#J 


1432 














(SC8L*HQL*SEMlC6LeN),i 


1433 


05 


OOlFC 


6 A 7008D4 








(ENDiMASTEREXECUTIVE) 




05 


OOlFD 


0^*00239 


02 










05 


OOlFE 


0?000201 












05 


QOlFF 


0*000035 












05 


00200 


0U00O301 










1434 












nxtprm 


ERRP7il 


1435 


05 


C0201 


6 A 7oo«C4 








(INTGi*) 




05 


00202 


01000245 


02 










05 


00203 


0*000204 











1X9 



PUT 'STRING* PARAM IN CDT 



1ST fC6L *f IN CDT 



HOI 



20! 
1436 

1437 
1438 
1439 


44 SEP 08# 
OB 00204 

OB 00205 

0« 00206 
05 00207 

05 00208 


'75 

6A70081B 

6A7on8D4 

0^800239 
0*000035 

0UOOO301 


02 




BAL#LNK 

nxtprm 


ADDCDTPARAM PUT 2ND K&l #» IN CDT 

*ERRP4jJ 

(SC0LjIlGL$SEMICeL8N)ji 

(END#MASTEREXECUTIVE> 


1440 
1441 








# 
« 


ERRBR! SEC6ND 


PARAMETER MISSING 


144? 
1443 


OB 00209 


6A7Q0D99 




PFD20 BALiLNK 


TYPEPERR TYPE! '-PNJPARAM MISSING' 


1444 

1445 


OS 0020A 
05 0020B 


0U00O271 
6*000004 


02 




DATA 
B 


ERRP17 

MASTERPARSER 69 T8 PARSER 



120 



HOI 



2014* SEP 08* '75 



1**6 
1**7 
1**8 

1**9 
1*50 
1*31 
1*5? 
1*53 
1*5* 
1*55 
1*56 
1*57 



05 0020*. 

05 0080^ 
OS 0020C 6*700963 
05 OOSOD 0U00OC03 
0* 002CE 6*70083* 
05 0020F 6«00010E 



PAGE 
# PARSE F8RMJ IN N(#I> « 



PARSES IN FGU 
PARSEIIS FQU 



BAULNIK N^CDTENTRY 

DATA g 

BALjLNK CHECKiCDTFNTRY 

B QrTtSCGilNcR 



Ul 



BUILD NEW CDT ENTRY 

MAKE SURE UNf IS FIRST CMND 
66 PRQCESS F^RMJ Mil) 



HOI 20144 SEP 08# ♦ 75 
HSR 
1459 
1460 
1461. 
146? 
1463 
1464 

1465 05 

1466 05 

1467 05 00210 

1468 0? 00211 

1469 05 00212 
1470 
1471 
1472 
1473 



1474 

147S 
1476 
1477 
1478 

1479 

1480 
1481 
1482 
1483 
1484 
1485 



1486 

1487 
1488 



OS 
05 
05 

05 
05 

OB 



00213 

Q02l* 
00215 

00S16 
00217 

00218 



05 00219 



05 
05 



0021A 
0021B 



05 0021C 

05 0021D 
05 0021E 



0C21U 

0021U 

6*700963 
0U0OOQQ3 A 
6 A 700834 



6*7onaD4 
0*000230 02 
0*000218 

Q2000219 
0300021A 

6*700287 



6 A 70028B 



2^500003 A 
6A70O81B 



6*700804 
0180O239 
O^OOfiPlF 



02 



PAGE 
♦ PARSE F8RMSJ MD N( -M) *K ( »L ) ( $ I ) # 

# 



122 



PARSEJMD 

PARSEJMK 



eQU 

FQU 

BALjLNK 

DATA 

BALjLNK 

NXTPRM 



newcotentry 

3 

CHECKiCDTENTRY 

ERRPSjI 

UNTG#*)#J 

(SEQjPMDIO)jj 
(SEQ2iPMD|5) 



BUILD NEW CDT ENTRY 

MAKE SURE »MD(MK)» IS FIRST CMND 



BALjLNK ADgINT 



PUT <SFQ # pAIRi pARAM IN CDT 



* 0NLY eNE SEC * GIVEN; DUPLICATE IT 

PMD10 BALjLNK REPSEQ 
# 

# PUT FIRST SEQ * PAIR IN CDT AND GET gND PARAMETER 
« 

PMD15 LIjPI SEQ2 

BALjLNK ADDCDTPARAM 
NXTPRM *ERRP4j1 
<C9M,#) 



NXTPRM ERRPS^i 

UNTG,*}jJ 
(SEQjPMD20)j j 



Hcl 20U4 SEP 08# *75 



1489 


0* 


C021F 


6*7on*D4 




05 


00820 


03QQ023D 02 




05 


00221 


0*000224 




03 


00222 


0*00022fi 




OP 


00223 


0*000226 


1490 


05 


00224 


6*700287 


1491 








1492 








1493 








1494 


OB 


00225 


6*7on28B 


1495 








1496 








1497 








1498 


OF 


00226 


6 A 7onsiB 


1499 


OR 


00227 


6*000117 



(SEQ2jPMD?5) 



BAULKK ADJINT 
* 

# 8NUY 6NE SEQ. * 6lV£N? DUPLICATE: IT 

* 

PM02C BAL#LNK REPSEQ 

* PUT 2ND SEQ * PAIR IN CDT AND Q9 PR8CESS INCREMENT 
« 

PMD25 BAULNK ADDCDTPARAM PUT t S £Q * PAIR* IN CDT 
B GETflNCREMENT G8 PR8CESS INCR 



1<23 



Hoi 



20144 I 


5EP 08# 


»75 












1500 














PAGE 




1501 










♦########♦♦########*####♦ 


150? 










# 


PARSE 


P6RMJ I 


*N N#K # 


1503 










#«***#***«#«•«*«»*«««*### 


1504 










* 








1505 










« 








1506 




05 


0022* 




PARSE JRN 


ecu 


$ 


1507 


05 


00228 


6 A 7on963 








BALilNK 


NEWCDTEMRY 


1508 


05 


00229 


0U00O002 


A 






DATA 


2 


1509 


05 


0022A 


6*700834 








BALiLNK 


CHECKiCDTENTRY 


1510 














NXTPRH 


ERRP5#I 


1511 
















(INTQj#)jJ 


1512 
















(SEQ#PRN10)#/ 


1513 


05 

05 

05 

05 

05 


00228 
0022C 
0022D 

0022E 
0022F 


6*7on8D4 
0^000230 
0*000230 
0*000231 
0^000129 


02 








(SEQ2jILGL*SEQ2) 


1514 


05 


00230 


6 A 7on287 








BALiLNK 


ADJINT 


1515 










# 








1516 










# 


PUT SEQ # IN CDT AND GET 2ND SB 


1517 










* 








1518 


05 


00231 


28500002 


A 


PRN10 


LI#Pl 


srQ 


1519 


05 


00232 


6A70081B 








BaLjLNK 


addcdtparam 


1520 














NXTPRM 


#ERRP4#i 


1521 
















(caMj#)jj 


1 5^.2 
















(SC9L#PRN30>ii 


1523 


05 
05 
05 
05 
05 


00233 
00234 
00235 
00236 
00237 


6 A 7on8D4 
0^800239 
0?000238 
0*000242 
0U00O242 


02 








(ENDJPRN30) 


1524 














NXTPRK 


ERRP5#i 


1525 
















(!NTG,#)jj 


1526 


05 
05 
05 


00238 
00239 
0023A 


6*70ngD4 
0*000230 
0*00n23C 


02 








(SEQ#PRN20) 



1*4 



BUILD NEW CDT ENTRY 

MAKE SURE iRNf IS FIRST CMNO 



PUT SEG IN CDT 



Hoi 20J44 SEP Q8j » 75 

OR 0023B 0*000230 



125 



1527 


05 


0023C 


6*7on287 






BALjLNK 


ADgINT 


1528 










« 






1529 










* 


PUT 2ND SEO * 


IN CDT AND FINISH UP 


1530 










« 






1531 


05 


C023D 


6A70081B 




PRN20 BAULNK 


ADDCDTPARAM PUT 2ND SEQ * IN CDT 


1532 












nxtprm 


♦ERRP4U 


1533 














(SC8LjIlQL$SEMIC8L8N),i 


1534 


05 


0023E 


6^700804 








(END#MASTEREXECUTIVE) 




05 


0023F 


0*800239 


02 










05 


00240 


0*000035 












05 


00241 


OU000301 










1535 










# 






1536 










* 


ERR&PI SECSND 


PARAMETER MISSING 


1537 










* 






1538 


05 


00242 


6^7onD99 




PRN30 BALjLNK 


TVPEPERR TYPE? f-PNjPARAM MISSINQ' 


1539 


05 


C0243 


0U000271 


02 




DATA 


ERRP17 


1540 


05 


00244 


6*000004 






B 


MASTERPARSER G6 T8 PARSER 



HOI 201 

1542 
1343 
1544 
1545 
154 6 
1547 
1548 
1549 

1550 
1551 
155? 

1553 

1554 
1555 
1556 
1557 
1558 
1559 

1560 
1561 
156? 



44 SEP 08, '75 



1563 
1564 

1565 
1566 
1567 
156« 
1569 
1570 
1571 
157? 
1573 



05 0024b 

05 0024b 
05 00245 6*7on963 
05 00246 0U00O003 A 
05 00247 6*00024A 



05 0C24« 
05 00248 6 A 700963 
05 00249 00000001 A 



05 0024A 
05 0024B 
05 0024C 
05 0024D 
05 0024E 
05 0024F 



05 00250 
05 00251 
05 00252 
05 00253 
05 00254 
05 00255 



6A7008D4 

0300023D 02 

0*00024F 

0*000250 

0^000129 

6A70OP87 



2150O01E 
6*100256 
6A7Q0834 
2*500002 
6A70ft818 
6*00OlF2 



PAGE 

# PARSE F6RMSJ SS N(,C(*D)) * 

* ST N(#C(jD>> # 

• JU N # 

# 

PARSE JSS FQU * 

PARSEJST FOU $ 

BALjLNK NEtaCOTEMRY 

DATA 3 

B PARSEjUU*? 



126 



BUILD NEW CDT ENTRY 



PARSEJJU EQU 

BALjLNK 
DATA 

NXTPRM 



BUILD MEW CDT ENTRY 



$ 

NEwCDTENTRy 

1 

ERRP5#i 
(INTGj#)j| 
(SEQ#PSSlO)/i 
(SEQ24lLGL$SEQ2) 



BALjLNK ADjINT 
# 

* PUT SEQ * IN CDT AND MAKE SURE ChND IS FIRST FOR f SS» AND 1ST' 

# 

PSS10 Cl'Pl FIRST$UCMND IS CMNDi»Ju< 

BGE PSS20 

BALjLNK CHECKiCDTENTRY N8 • MAKE SUKE fSS(ST)i IS 1ST CMND 

LI#Pl SEQ PUT SEQ * IN CDT 

BALiLNK ADDCDTRARAM 

B GET$C»L#$PAIR 
# 



HOI 20J44 SEP 08/ '75 



1574 






# PUT 


SEO * F8R 


1575 






# 




1576 


05 00256 


2^500002 A 


PSS20 


LNP1 


1577 


05 00257 


6*700818 




BAL#LNK 


1578 








nxtprm 


1579 










1580 


05 00258 
05 00259 
05 0025A 
05 0025B 


6*7008D4 
0^800239 02 
0*000035 
OU000301 







PUT SEO * F8R fjU' IN COT* BUT IT NEED N8T BE FIRST 
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SEO 
ADDCDTPARAM 

♦E*R p 4* J 

(SCOUILQL«SEMICeLeN)j| 

(ENDjMASTEREXECUTIVE) 



PUT SEQ # IN CDT 



Hoi 



20S44 SEP 08* f 7S 



1S8 



1581 














PAGE 




1582 










##*««#*«««##««*#**#«* 


1583 










# 


parse: 


F8RM! 


RF * 


1584* 










# 


PARSE 


F9RMJ 


TX * 


1585 










•**«♦«*«***#*****#*#« 


1586 










* 








1587 










« 








1588 




05 


0025^ 




PARSEJTX 


EGU 


$ 


1589 




05 


0C25C 




PARSESRF 


FCU 


* 


1590 


05 


C025C 


6^700963 








BALiLNK 


; NEWCDTENTRY 


1591 


05 


0025D 


oooonooo 


A 






DATA 





1592 














nxtprm 


ERRC9#j 


1593 
















<SCGljRESUMEiPAR6lMG)#J 


1594 


05 

05 

05 
05 


0025E 
0025F 

00260 
00261 


6A7008D4 
020001C8 
0*00OClF 
QU000301 


02 








(END#MASTEREXECUTIVE) 



MCI 80?44 SEP 08j » 75 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
160? 
1603 

1604 
1605 
1606 
1607 
1608 
1609 



1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 



05 0C26S 

05 00262 6*7oo963 
05 00263 0U00O003 A 



05 00264 
05 00265 
05 '00266 
05 00267 
05 00268 



6A70O8D4 

0*000230 02 

0*000281 
0&00O282 

03000283 



05 00265* 

05 00265* 
05 00269 6*700963 
05 0026A 00000003 A 



1621 



05 0026B 
05 0026C 
05 0026D 

05 0026E 
05 C026F 

05 00270 
05 00271 
05 00272 



6A700«D4 
0&0QO1C8 02 
04000281 

0*000282 
0^000283 

0^000272 
0U00O272 

33F O noA0 02 



PAGE 

* PARSE F8RMSI TS N(»M) K TS • 

* TY N(»M) K TN * 

* TC N(»M) # 

# 



1*9 



PARSEJTC 


FGU 


$ 




BAL/LNK 

DATA 

NXTPRM 


NFWCOTEMRY 

3 

ERRP5*J 

(INTQjPTY5)#i 

(SEQ#PTYlo)M 

(SEQ2jPTY15) 



PARSEiTS 
PARSEJTY 



FQU 
EGU 

BALjLNK 
DATA 

NXTPR* 



* 

NEWCDTENTRY 
I 

ERRC9#J 
(lNTQ,PTYB)#i 
(SEQ#PTYlo>#J 
(SEQ2,PTY15)jJ 
(SC©L**>jJ 
(ENO#«> 



BUILD NEW CDT ENTRY 

»TC» MUST SPECIFY RECBRDt 



BUILD NEW CDT ENTRY 



MTWj-l CNARPSN 



SET T8 RESCAN LAST CHAR 



HC1 



201 
162? 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 



1635 
1636 
1637 

1638 
1639 
1640 
1641 

1642 

1643 

1644 



44 SEP 08# 
05 00273 
05 00274 
05 00275 
05 00276 
05 00277 
05 00278 
05 00279 
05 0027A 
05 00278 
05 0027C 



05 0027D 
05 0027E 
05 0027F 
05 00280 



05 00281 
05 00282 
OB 00283 

05 00284 
05 00285 

05 00286 



«?5 

B*8oooAC gg 

*B8ooo05 02 

B&800CAC 02 

22800C2A A 

2X500015 A 
6&30O27A 

2*800029 A 

3*500008 A 
6A700963 

00000000 A 



6A7on«D4 
0*000108 02 
0*00001F 
OU000301 



6*700287 

6A7on28& 
6A7 o834 

2*500003 A 
6A70O81B 

6»0001F2 



* 

PTY5 

PTYlo 

PTYiS 

# 



LW # Tl 

AND#T1 

STWjTl 

LIjTi 

CI#Pl 

BE 

L l* Tl 

L^#P1 
BALjLNK 
OATA 
NXTPRM 



BALjLNK 
BAL#LNK 
BALjLNK 

Ll'Pl 
BAL#LNK 



*COTADR 

XFFOO 
♦CDTADR 

I jTS$CMKD<*NiMR 
R$TS*CMND$NMR 

!JTV*CMND$NMR 

Tl 

NFHCDTENTRY 



MUST BE INTRALlNt ITS* »R »TY« 
WIPE 0UT CDT ENTRY JUsT BUIUT 

IS CMND »TSt 
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so 



N8 - MUST BE 'TV 
BUILD ENTRY IN COT 



F&R THIS CHND 



ERRC9j J 

<SC8L,RESUME$PARSlNG),j 

(ENDiMASTEREXECUTlVE) 



ADJINT 
REPSEQ 
CHECKtCDTFNTRY 

SEQ2 
ADDCOTPARAh 

GET$C0L**PAIR 



SCALE INTEGER T© SEQ *• 
REPLICATE SINGLE SEQ #. 
INSURE TY(TS) IS FIRST COMMANDt 

ADD SEQ PAIR TO CBNMANP TABLE* 



N6w GET &PTI8NAL COLUMN NUMBERS 



Hoi 30144 SEP 08* » 75 
1645 
1646 
1647 
1648 

1649 

1650 

1651 

165P 05 Q0287 

1653 OS 00288 

1654 05 00289 

1655 05 Q028A 

1656 
1657 

1. 6 5 8 

1659 05 00288 

1660 05 0028C 

1661 05 0028D 

1662 05 Q028E 
1663 
1664 



lil 



3«F0O0Cl 02 
2^F0O3E8 A 
3$>FonoCl 02 
E*000007 A 



3£800CC1 02 
3S8onoC2 02 
33J0O0E6 02 
E*0QOQ07 A 



PAGE 
* PARSFR UTILITY R8UTINES * 



ADJINT 



PEPSEQ 



F8PM SEQUENCE: NUMBER AS INTEQER*lOOOt 

L\**Dl PARAM8UF 

MND1 1000 
STWjDl PARAMBUF 
B *LNK 

REPLICATE SINGLE SEQUENCE NUMBER IN PaRAMBUF*i» 

L*#Tl parambuf 

STWjTl PARAMBUF+1 
MTW#l PRMBUFSZ 
B *LNK 



HCX 



80S 

1666 
1667 
1668 

1669 
1670 
1671 
167? 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
168? 
1683 

1684 
1685 
1686 
1687 
1688 
1689 
1690 
l69l 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1 7 00 
1701 



44 REP Q8# *75 



PAGE 
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0000000* 
05 0028P 0*10ni9C 02 



05 00290 
OS 00291 
05 00293 

05 00293 
05 00234 
OF 00295 
05 00296 
05 00297 
05 00298 

05 00299 
05 0029A 
05 00290 
05 0029C 
05 0029D 
05 0029E 
05 0029F 
05 002A0 
05 002A1 
05 002A2 



05 002A3 
05 002A4 
05 002A5 
05 002A6 
05 002A7 



4 >«0OE26 
6 A 700DC4 
OU00027A 02 
3^00f53C9 02 
6*l0n£FC 
3*000167 02 
6*3q02D2 
3^0000E9 02 
6*3002A3 

325002C3 02 
6»1002D2 
22600BC9 02 
6*7ooB97 

OUOOOOOO A 
2U800024 A 

7^Boo2E9 02 
6A7onDC4 
OU0002E9 02 
6*000202 



2*300001 A 
Fg46O0AC 02 
6*30ngFC 
32380039 

2**0000? A 



♦ * 

* BREAK*K£Y INTERRUPT HANDLER * 

♦ UTS 9NLYt # 

# # 



8RK$KEY 



# 
8RK3C 



D8 

PUSH 

CALl*8 

BAUjLMK 
DATA 

MTW#q 

BIZ 

HTW,o 
BNE* 

mtw# 

BE2 

BLZ 

LI/R2 

BALjLNK 

GEN4 

Al#Rl 

STB#Ri 

BAUiLNK 

DATA 

B 



Ll#Xl 
LB,X? 
BEZ 

LUX? 



M6DE«2 
X3 

«X«06700002* 

TYPEMS6 
MSGO 
XEOFLAG 

BRK99 
STEPFLAQ 

8RK80 
SETFUG 

BRK30 

IfsiTFLAGi 

BRK80 

8A(UTSM4)*37 

M8VESEG 

0*0*0*0 
36 

UTSM4 

TYPEMSQ 

UTSM4 

BRK80 



*CDTADR,Xi 

BRK99 
CNAMETBLjXa 
7 



SAVE POINTER 8F H>SD IN STACK 

PURGE TERMINAL 8UTPUT BUFFERS 

M8VE T8 A CLEAN LINE 8N USER 

TERMINAL! 

IF N8T EXECUTING* GET NEXT C8MMANQt 

IF STEPPING, SKI* DISPLAY CHECK, 

IS SYSTEM IN SET M8DE* 
ZER8 SAYS N8t 

IF DISPLAY FLAG SgT, 

BUILD SEQ # INT8 MESSAGE AND 
SEND IT 8UT» 

ADJUST C8UNT 8F FULL STRING 



N8W ASK AB8UT CONTINUE, 



EXECUTING FILE 8* EDIT C8MMANQ, 
GET C8MMAND NUMBER AND RETRIEVE 
6RIGINAL EBCDICf 
N8W CHECK DISPLAY TABLE F6R 
PRESENCE 8F THIS C8MMANDt 



HCl 



20144 
170?? 
1703 
170* 
1705 
1706 
1707 
1708 
1709 

1710 
1711 

1712 
1713 
1714 

1715 
1716 
1717 
1718 
1719 
1720 
1721 
172? 

1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



SEP 08* 

35 002A8 

35 002A9 

35 002AA 

35 002AB 

35 002AC 

35 002AD 

35 002AE 

35 002AF 

35 002&0 

35 002B1 

35 00282 

35 002B3 

35 003B4 

35 002B5 

35 00286 

35 002B7 

35 Q02B8 

35 00269 

35 002BA 

35 0028B 

35 002BC 

35 C02BD 

35 002BE 

35 002BF 

35 C02C0 

35 Q02C1 

35 002C2 

35 C02C3 

35 002C4 

35 002C5 

35 002C6 

35 002C7 

35 002C8 

35 002C9 

35 002CA 



♦75 

31380317 
6»30C2AC 
644Q02A8 
6**0002D2 

21400004 
6*200288 

3850O2C3 
6^100202 
286ooBFq 

6A7Q0897 

oooooooo 

2UB0O017 
75B 02F6 
6A70ODC4 
0U00O2F6 
6*00O?D2 

3250O2C3 
6»l0O202 
2260OBFO 
6A70OB97 

4U4DO00Q 
3U60OO08 

2yB o0l7 
385qo2C4 
6»l0O2CD 
78300307 

3gB o003 

88400001 
7g58o307 

7S5C0C00 
20600001 
2U4QOC01 
6*30O2C4 
7S>B 0o2 F6 

6A70ODC4 



02 



* 
BRK40 



A 

02 

02 

A 
A 

02 
02 



02 BRK50 

02 

A 
A 
A 

02 



02 

A 

A 

02 

A 

A 

A 



BRK53 



02 BRK55 



CW#X1 

BE 
BORjXg 

B 

CI#Xg 
BLE 

BIZ 

LI#P2 

BALjLNk 

QEN4 

Al#Rl 

STBjRi 

BAL#LNK 

DATA 

B 

LW,Pi 

BL2 

LI/P2 

BAL#LNK 

GEN4 

A*#P2 

Al#Rl 

LW#Pl 

BGEZ 

LB'Xl 

Ato/Ri 

LI#X? 

L8#Pi 

STBjPi 

Al/Pp 

A!*X2 

BDR#Xi 

STB#Ri 

BAL#LNK 



BDISPTBt#X2 

BRK4Q 

i-2 

BRK8Q 

4 
BRK50 

INTFUG1 

BRK80 

8A(UTSM5)*24 

MeVESgQ 

QiQ'QiQ 

23 

UTSM5 

TYPEMSG 

UTSM5 

BR<80 

iNTFUAGl 

BRK80 

BA<UTSM5)+24 

M8VESEG 

BL#LP#0'0 

Rl 

23 

INTFLAG2 

BRK60 

UTSM7 

*1 

1 

UTSM7jX2 

0#P2 

1 

1 

BRK53 

UTSM5 

TYPEMSG 
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IF N8T F8UND* 
ASK T8 CSNTlNUEt 



THESE C0MMANPS TA K E SINGLE SEQUENCE 
NUMBER • DE#FD#Ft 



THESE C8MMAN0S TAKE A D&UBLE SEQ« # 
DISPLAY 

SET UP DDD.DD ( 

INCR MSG BYTE AOUR 

AND MSG LENGTH 

IF SEC8ND SEQt # N8T SET UP# 

WE MUST BE DELETjNGt 

THEREFSREj INSERT DELETING 
MESSAGE* 



ADJUST BYTE C8UNT 8F T8TAL 
MESSAGE t 



wot 



20U4 
1739 
1740 
1741 
174? 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 

176 
1761 
176? 
1763 
1764 
1765 

1766 
1767 

1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 



SEP 08* f 75 
35 002CB 0U00O2F6 
35 0C2CC 6«00n2D2 



02 



35 002CD 

35 002CE 

35 C02CF 

35 00200 

35 00201 

35 00202 

3* 002D3 

35 002D4 

35 00205 

35 00206 

35 00207 

35 00208 

35 00209 

35 002DA 

35 0020B 

35 0Q20C 

35 002DD 

35 0020E 

35 0020F 

35 002EQ 

35 002£l 

35 002E2 

35 002E3 

35 002E4 

35 00HE5 

35 002E6 

35 002E7 

35 002E8 

35 002E9 

35 002EA 

35 002E8 

35 002EC 
05 



3«8onooB 

6*7onB97 

suoonooo 

3UB0O00a 
6&0002C9 

6 A 7onOC4 

00000303 
0*10fi2CD 
6 A 7onDC4 
0UO0O27A 

723Q0PX2 
2X30O0E7 
6*3002F7 
0*l0Ol9C 
04900005 
22800000 
3580009D 
3&8onoCo 
3&8onoE9 
3^800167 
22&FFFFF 

3&80OC2Q 
330000AE 
6»30D2ED 
3KB00E27 
3XB0O00O 
684002E9 

6A700B33 
31B0O00O 
6«4002EC 
6*700837 
6*000004 
Q02EU 



02 
02 

02 
02 
A 

02 

A 

A 

02 
02 
02 
02 
A 

02 

02 



* 
BRK60 



« 
BRK80 



MiTRTN 
BRK90 



BRK91 



DATA 
B 

LW,Ti 

BAL#LNK 

QEN4 

AW#Rl 

B 

BALjLNK 

DATA 

CALlii 

BAL#LNK 

DATA 

LB#X t 

CUX% 

BE 

PULL 

KITRTN 

LIjTi 

STWjTi 

STW^Ti 

STW^Ti 

STWjTi 

HjTi 

STW/Tl 

MTw#o 

BEfc 

LW'Rl 

C*#R1 

BAZ 

BALjLNK 

CH#Rl 

BAZ 

BALiLNK 

B 

ECU 



UTSM5 
BRK80 

Rl 

MOVESEQ 

RP#0#0j0 

Tl 

BRK55 

TYPEMSG 

UTSM6 

BR$FPT 

TYPEMSG 

MSGO 

CFLAQ 

ST9PLASTCMD 
X3 


LASTKCY 

NOCHGFLG 

SETFLAG 

STEPFLAG 

•1 
ALLFLAG 

C6PYFL 

BRK91 

L(* f 00200000M 

FSEI 

$+2 

CLOSE 

FSEO 

$+2 

CLOSES 

MASTERPARSER 

* 
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THEN ASK ABOUT CONTINUE. 

SAVE MSG LENGTH 

MOVE SECOND SEQ * NUMBER INTO 

MESSAGE * 

INCREMENT MSG LE N GTH 



ASK F6R A CHARACTER, 

READ ITt 

RETURN CARRIAGE* 

IF CHARACTER IS N 6 T X 
CONTINUE COMMAND* 

STRAIGHTEN 8UT STACK 

CONTINUE 
START CLEAN Up 



DOES FID1»FID2 

NO 

CHECK IF FILES G»T OPEN 

(INPUT) 

CL9SE#SAVE OLD FILE 
(OUTPUT) 

CLOSE^RLS NEW fllZ 



HOI 



20J44 
1776 
1777 
1778 
1779 
1780 
1781 
178? 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 



SEP 08j 
OP 002ED 
OB 002EP 
05 002EE 
05 QC2EF 
05 002FQ 
05 002F1 
05 0O2F2 
OB Q02P3 
05 Q02F4 
05 002F5 
05 002F6 
05 002F7 
05 002F8 

05 002F9 
05 002FA 

05 002FB 

05 

05 C02FC 

05 002FD 

05 002?E 
05 002FF 

05 00300 



♦75 

3SBqoE27 
3XB00000 X 
6*4002Fl 

6*70OB35 
330000B6 02 
6^200004 
SiBooOOO * 
6»4on2F6 
6^700833 
6*000004 
0*100l9C 02 
2S91FFFF A 

2«8on2DC 
47820000 A 
6*0002DB 
QOgFL 

0»10019C 02 
2391FFFF A 
2^800004 
47820000 A 
6*00O2DB 



D61 
LW#Ri 
CW#Rl 
BAZ 

BALjLNK 
MTWjO 
BQl 
CW#Ri 
BAZ 

BALjLNK 
B 
ST8PLASTCM0 PULL 
LIjT? 

LI#T1 
STSjTi 

B 
BRK99 EQU 
PULL 
LIjT? 
Ll#Ti 
STSiTl 
B 
FIN 



M8DEf2 

L(X»00200000M 

FJE© 

• ♦2 

CL9SE2 

FILETYPE 

MASTERPARSER 

FJEI 

i*2 

CL&SE 

MASTERPARSER 

X3 

X'lFFFF* 

BRK90 
0#X3 

MITRTN 
$ 
X3 

X'lFFFFf 
MASTERPARSER 
0#X3 
MiTRTN 
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IF 8PEN F8R 8UTPUT, 



CL8SE ANY C8PY 8N MERGE FlLEt 
CL8SE INPUT FILE/ UNLESS 8PEN 
F8R EDlTt 



P8INTER BF PSD IN STACK, 
SET A MASK 

RETURN ADR, NANTLp, 



PREPARE A CLEAN EXIT. 

SET THE STACK P8jNTERt 

MASK 

ADR. 8F RETURN, 



HOI 



20 
1799 

1800 
1801 

1802 

1803 
1804 
1805 
1806 
1807 
1808 

1809 
1810 
1811 
1812 
1819 
1814 

1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 

1830 
1831 

1832 
1833 

1834 

1835 



*44 SEP 08# »75 



05 00301 

05 Q030l 28800049 02 

05 00302 3*>8onoAC 02 

05 00303 3880016A Q2 

05 00304 3&800023 02 

ooooocoi 

05 00305 28800001 A 

05 00306 3&80O2C9 2 

05 00307 33000GE9 02 

05 00308 6*30030C 



05 00309 
05 Q030A 
05 003qB 



05 
05 0030C 
05 0030D 

05 003oE 
05 0030^ 
05 00310 
05 00311 
05 00312 



22800000 A 
3S80O2C6 02 
3S8002C7 02 



0030^ 

2^300000 A 
3&3Q0021 02 
28300001 A 
F84600AC 02 
6**30O34A 

21*00004 A 
6*100322 



PAGE 

# # 

# MASTER PROGRAM ♦ 

# # 

# TO EXECUTE # 

# « 

# EDIT COMMANDS # 

# # 
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MASTEREXECUTIVE 

LI#Tl 

STW^Ti 

STW#Tl 
DO 

LliTl 
STWjTi 

MTW# 
BNEZ 
LIjTI 
STW#Tl 
STW#Tt 
FIN 



EQU * 
CDT + l 
CDTADR 
SV8PFLAG 

BPFLAG 
MODE-2 

1 

XEQFLAG 

SETFLAG 

restart$executive 



TABCFUAG 

TABXFUAG 



RESTARTtEXECUTlVE 
LI#Xt 

STW#X1 

Ll/Xi 

L8,X? 

BEZ 
CI#Xp 

Bl 



ECU * 


ALLOK 

1 

*CDTADR#X1 

EXC50 

FlRSTgFJCMND 

EXC6 



SET CDTADRfFIRST COMMAND IN COT 
RESTORE LAST DFLT VALUE OF BPFLA^ 



ARE WE IN SET MOUE 

YESi DSNtT RESET TAB FLAWS 



(INTRALINE cmnd i»op enters here) 

INDICATE ULL» MODE IS 
POTENTIALLY LEGAL 
GET NUMBER OF COMMAND 

IS CMNDiO (END OF CDT) 
IS IT A FILE COMMAND 
NO • ITS A CONTROL CMND 



Hoi 201 
1836 
1837 
1838 
1839 

18*0 
1841 
1842 
1.843 
1844 
1845 
1846 
1847 
1848 
1.849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 

1859 
1860 
1861 

1862 
1863 

1864 
1865 

1867 

1868 
1869 

1870 
1871 
1872 



44 SEP 08* 
05 00313 
05 00314 
05 00315 
OF 00316 
05 00317 
05 00318 
05 00319 
05 0031A 
05 0C31B 
05 0031C 
05 0031D 
05 0031E 
05 0031? 
05 00320 
05 00321 



05 00322 
05 00323 
05 0C324 



*75 

2140OC0B A 

6*100325 

3^000086 02 

6*100347 
2J4000l£ A 
6*200325 
2S8FFFFE A 
318000 B 2 02 

6»ionsiO 

3*3000B2 02 

330000E9 02 
6*300337 

6*7ooDC4 

oooooies 02 

6*000004 



3^000167 02 

6*300344 

6»00O32B 



05 00325 33000167 02 

05 00326 6*300344 

05 00327 2*800000 A 

05 00328 3$8onoE9 02 

00000001 

05 00329 36g0O2C6 02 

05 0032A 3S8002C7 02 



CI*X2 

BL 

MTWjq 

BUZ 

CJ,X 2 

BLE 

LI#Ti 
CW#Tl 
8QE 
STW#Xl 

MTW#o 

BNEZ 

BAL#LNK 

DATA 
B 



FIRST$R:CMND 

EXC5 

FILETYPE 

EXC40 

FIRST*! ICMND 

EXC5 

•2 

ERR0RCNT 

$*2 

ERR9RCNT 

SETFtAG 

EXC20 

TYPEMS6 

ERRM8 

MASTERPARSER 



# 

« 

EXC6 



C8NTR6L COMMAND • • »BPt # 



mTWjO 
BNEZ 



STEPFLAQ 

EXC30 

EXC10 



1^7 

N8 - IS IT A FlLfc C9MMAN0 

YES • SKIP TEST 

N8 - IS INP FILE PRESENT AND KEYkD 

N8 - ERROR 

IS IT AN JICMNO (EXCEPT 'SE») 

IF ERR8RCNT «2 8R LESS 
SET L88P EXECUTES BNCE 
D8NT TYPE ANY MBHe CERRS 
6NE CERR PER HC8MMAND 
YES - IS SYSTEM IN SET M8DE 
YES m GS CHECK 8* CMND 
N8 • TYPE! UMlSSlNG SET 1 

EXIT T8 PARSER 

'TAS »CR» 

IS SYSTEM IN STEP M8DE 

YES • ERR8R 

CONTINUE 



# FJCMND, RJCMND, 8R f SE f l CHECK T8 SEE THAT SYSTEM IS N8T IN STEP ^©PE 






MTNiO 
BNEZ 

LI#T1 

STWjTi 

D8 

STW # T1 

STw#Tl 

FIN 



STEPFLAG 

EXC30 



SETFLAG 

M8PE12 

TABCFLAQ 

TA8XFLAG 



IS SYSTEM IN STEP MODE 

YES • ERR8R 

TURN 8FF fSET MBPE I FLAG 



and reset ta8 flags 



EXECUTE CURRFNT C8MMAND IN CDT 



Op 0032® 
05 C032C 



6/080351 
3*000020 02 



EXClO 



EXU 

MTWjO 



CMNDTBL#Xg 
ALLFLAI5 



EXECUTE C8MMAND 

WAS CMKD An UCMND WITm PARAMliALL 



HOI 30 t 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 

1 OcS £ 

1883 
1884 

5885 

1886 
1887 
1888 
1889 

1890 
1891 
1892 

1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
19Q4 
1905 
190fe 

1907 
1908 

1909 



44 SEP 08* 
OP Q032D 

05 CQ32E 
05 C032F 
0? 00330 
05 00331 
05 00332 
05 00333 



05 00334 
OB 00335 
05 00336 



175 

6*100334 

2S80C000 A 

3&80O0AE 02 

3*>8ooiAl 02 

F8800CAC 02 

6680O0AC 02 
6»00030C 



2&30OG01 A 
F24600AC 02 
6^000328 



05 00337 
05 00338 
OB 00339 
05 0033A 
05 00338 
05 0033C 
OS 0033D 
05 0033E 
05 0033F 
OB 00340 
05 00341 
05 003*2 
05? 00343 



05 00344 
05 00345 



33000167 
6*300328 

3*oonoE9 

6*l0032B 
2S8FFFFF 
3$8onoE9 
3S8oocAC 
3&8000ES 
32500169 
3^500089 
6A70OC6D 
6A700A56 
6&00032B 



6 A 70OD8F 
OUOOOlBl 



1^8 
YES • EXECUTE IT UNTIL FLAQ Gees &FF 
TURN 8FF CBPY FLAG 



BGEZ EXC15 

Ll#Tl 

STWiTl CePYFL 

STW^Tl CT$FLAG 

LB#Ti «CDTADR 

A*M,Tl CDTAOR 

B RF.STArT$EXECUTIVE GB PRBCESS NEW COMMAND 



TURN 8FF !CTt FLAG 

INCR CDTADR T8 NEXT C8MMAND 



# 

# ALLFLAQ SET: RE»EXECUTE INTRALINE C8MMAND UNTIL ALL BCCuRKENCES A*E 

# PR8CESSE0 

EXC15 Ll#Xi 
LB#X2 
B 

* 

# COMMAND IS IN' 

# IF C8MMAN0 is 

# LAST ACTUAL T 
# 



#CDTADR#Xi 
EXC10 



GET NUMBER 8F COMMAND 
G8 EXECUTE COMMAND 



traline (except *semi turn 8n uicmnd executed* fla^; 
first in cot do a dummy hset using parameters from 

JSET 



02 EXC20 

02 

A 

02 

02 

02 
02 
02 



MTW,0 
BNEZ 
MTW# 
BLZ 

LI,T1 

STw#Tl 

LW,Tl 

STWjTi 

LN,P1 

STWiPl 

BALjLNK 

BAL#LNk 

B 



STEPFLAG 

EXC10 
SETFLAG 

EXClO 
• 1 

SETFLAG 

CDTADR 

SETAOR 

SV1STSET 

FIRSTSET 

READRAND8M 

SETE8D 

EXClO 



IS SYSTEM IN STEP M8DE 

N8 • MUST SET LOOP BE INITIALIZED 

N8 • G8 EXECUTE llCMND 

SET SETFLAGt*l T» INDICATE THAT «ET 

L88p MAS BEEN INITIALIZED 
SAVE ADDR 8F CMNP IN CDT (IN 

SETADR) F8R LATER IJCMND LOOP 

INITIALIZE LO©P HER LAST IjSET 
READ FIRST REC8RP T8 ALTER 
SET E8D MARKER 
GB EXECUTE COMMAND 



ERRBRJ GIVEN COMMAND IS ILLEGAL WHEN SYSTEM IS IN STEP MBPe 



EXC30 



02 



BALjLNK 
DATA 



TyPECERR 
ERRC4 



TYPE! »*CNjCMND iLGL HERE! 



MCI 20 
1910 
1911 
1912 
1913 

1914 
1915 
1916 
1917 
1918 
1919 

1920 
1921 
1922 
1923 
1924 
1925 
1926 
192? 
1928 
1929 
1930 
1931 

1932 
1933 

1934 
193S 
1936 
1937 
1938 
1939 
1940 
1941 
194? 

1943 
1944 

1945 
1946 



J44 SEP OB* 
OB 00346 



OS 00347 
05 00348 
05 00349 



05 0034A 
05 00348 
05 0034C 
05 0034D 
05 0034E 
05 0034F 

05 00350 



♦75 

6*000004 



6 A 7of)DC4 
000001F2 02 
6*000004 



3^000167 02 
6*3006AO 
3300019A 02 
6*300351 

330000E9 02 

6*300748 

6*000004 



05 00351 
05 00351 6*000004 



05 

05 00352 

05 00353 
05 00354 

05 00355 
05 00356 
05 00357 
05 00358 
05 00359 
05 0035A 

05 00358 



00351 

6ADoo37E 
6*Doo534 
6AD00481 

6*D00390 
6*Doo3D9 
6ADQ0497 

6AQ004A3 
6ADQ04BA 
6*D004BE 
6ADQ048C 



B MASTERPARSER 

# ERR8R! N8 SOURCE FILE NAMED 

# 

EXC40 



EXIT T8 PARSER 



139 



# 

* END 

EXC50 



type: ?*n8 file named* 
exit t8 parser 

8F CDTJ TF IN SET OR STEP MSDeSj G8 T& APPR9PMIATE L99P 



bal#lnk 

DATA 

B 



TYPEMSG 

ERRM13 

MASTERPARSER 



MTWiO STEPFLAG 

BNEZ STEP$LQ0P 

MTW#0 TTY1M0$Z 

BEZ EXC55 

MTWjq SETFLAG 

BNEZ SET$L88P 

B MASTERPARSER 



* 

# ERR8RJ NULL C6MMAND 

# 

EXC55 



EQU 



MASTERPARSER 



FJLE CBMMANDS CAN 8NLY APPEAR 



IS SYSTEM IN STEP M8DE 
YES » G8 T8 STEP L88P 
MS INPUT LINE NULL 
YES • ERR&R 
IS SYSTEM IN SET M8DE 
YES • G8 T6 SET L88P 
EXIT T8 PARSER 



EXIT T8 PARSER 
8NE PER LINE 



CMNDTBL 



EGU 

BALjF|LNK 
BAL#FJLNK 
BALjFJLNK 

BALjPILNK 
BALjFjLNK 
BAL#FJLNK 
BALJFJLNK 

BAL#F|LNK 

BAL#FIL.NK 
BAL#FfLNK 



*»1 

FjBLANK^PRESER 

S(MASTERPARSER 

FJCR 

FJBUILD 

F?C8PY 

FJDELETE 

F5EDIT 
FjEND 
FJMERGE 
FjRP 



V 



XI 

TA) 
3! 
4? 
5! 
6S 
7? 

8; 

9$ 

10! 



BP 

TA 

CR 

BUILD 

C8PY 

DELETE 

EDIT 

END 

MERGE 

RP 



HOI 



20$ 
19*7 

1948 
1949 
1950 

1951 

1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 

1960 
1961 
1962 

1963 
1964 

1965 

1966 
1967 
1968 
1969 
1970 
1^71 
197? 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 



44 SEP OSj »75 



# REC&RD C8MMANDS CAN 6NLY APPEAR 6NE PER LINE 



140 



OP 0035C 
05 0035D 

05 0035E 
05 0035F 

05 00360 
05 00361 
05 00362 
05 00363 
05 00364 
05 00365 
05 00366 

05 00367 
05 00368 
05 00369 

05 0036A 
05 0036B 



05 0036? 
05 00370 
05 00371 
05 00372 
05 00373 
05 00374 
05 00375 
05 00376 
05 00377 
05 00378 
05 00379 
05 0037A 
05 00378 
05 0037C 
05 0037D 



6 A D0OB8C 
6*000596 
6 A D0O598 
6*Doo5DB 
6*Don5D8 
6*000614 
6 A D o6l6 
6AD00686 
6*D00699 
6^000698 
6*Don6C5 

6AQ006C3 
6^Doo6C3 
6^Don594 
6 a Dqo545 



6 A 00O72D 
6*000773 
6*Doo787 
6 A Doo798 
6AD0O7A7 
6*D007B1 
6*Doo7BC 
6 A Don7CA 
6*000704 
6 A Ooo7ED 
6 A Doo800 
6A000808 
6AD00810 
6 A D0O80C 
6 A Ooo8l4 



BALjFJLNK 
BALjRILNK 

BAljRjLNK 
BALiRjLNK 
BAL#R|LNK 
BAL#RjLNK 
BALjRILNK 
BALjRILNK 
BALiRjLNK 
BALiRjLNK 
BALjRILNK 

BALjRILNK 

BALjRILNK 
BALiRlLNK 
BALjRILNK 
RES 



ridelete 

rifikd$delete 

r|find*type 

rsinsert 

r:insert$sup$seq 

R$MByE*DELETE 
R$M8VE$KEEP 

RIRENUMB^R 

R$5ET$STEP 

R|SET$STEP$TYPE 

R?TYPE$SUP$SEQ 

RITYPE 

R8TvpE$C8MPRESSED 

R|FIND$SEQUENCE 

RIC8MMENTARY 



IIS 


DE 


121 


FD 


1 3 i 


FT 


141 


IN 


151 


IS 


161 


MD 


171 


MK 


181 


RN 


19$ 


SS 


201 


ST 


21$ 


TS 


221 


TY 


23 


\ TC 


24$ 


FS 


25$ 


CM«CT 



INTRALlNE CeMM A NDS M A Y Be C8MP©UNDED 8N QNE LINE 



BALjIiLNK 

BALillLNK 
BALillLNK 
BALillLNK 
BALjIiLNK 
BALillLNK 
BAL#!$LNK 
BALillLNK 
BALillLNK 
BALillLNK 
BALjIILNK 
BALjIiLNK 
BALillLNK 
BALillLNK 
BALillLNK 



JSET 30 

JDELETE 31 

|8VER^RiEXTEND 32 

|F8LL9W$BY 33 

$SNIFT$LEFT 34 

JBVERWRITE 35 

|PRECEDE*BY 36 

ISHIFTSRIQHT 37 

ISUBSTITUTE 38 

lJUMP 39 

JNQ^CNANQE 40 

*«EVERSE*BPFLaG 41 

$TYPE*SUP$SEQ 42 

JTYPE 43 

?TYP£X 441 



SE 

D 
E 
F 

L 
B 
P 
R 
S 

gu 

N6 
RF 
TS 
TY 
TX 



(MUST BE *IRST TlCMND) 



NCI 



20 
1983 
198* 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
3005 
?002 
2003 

?oc4 

3005 
2006 
2007 
2008 
2009 

?010 
2011 
2012 
2013 
201* 
2015 



U4 SEP 08j »75 



05 
05 C037E 
OB 0037F 
OB 00380 
OS 00381 
OF 00382 
05 00383 
05 00384 
0? 00385 



OB C0386 
OF 00387 
OB 00388 
05 00389 
05 0038A 



05 0038B 
05 C038C 
05 0038D 



05 0038E 
05 0038F 



0037* 

22300005 A 
F24600AC 02 
BS8800AC 02 
3X80O38E 
6^300386 
2*800001 A 
3680016A 02 

E&00O00D A 



3180038F 
6*300388 
2*800000 A 
3b80016A 02 
E«00000D A 



6A700DC4 
000001E3 02 
E«00OO0D A 



0*^060540 A 
0*D6C6C6 A 



PAGE 
# FILE C9MMAND: SET BLANK PRESERVATION # 



1*1 



FS8LANK*PRESERV 

LB/X2 

LW#Tl 

CN#Ti 

BSE 

Ll/Tl 

STWjTI 

B 

* 

# TEST F8R «OFF* 

# 

BPV5 CW#Tl 

BNE 
LZ#Tl 

STWjTl 

B 



ECU * 

5 

#C0TADR#X1 

#CDTADR#Xp 

BPV9N 

BPV5 

1 

SVBPFLAQ 

♦FSLNK 



BPV8FF 
BPV10 

SVBPFLAQ 

#F1LNK 



♦ ERR0PJ N6T 8N 8R dFF 

8PV10 BALjLNK TyPEMSG 

DATA ERRM5 

B *FjLNK 

# 

# 

BPV9N TEXTC »6Ni 

BPV8FF TEXTC fBFF» 



SET TQ GET PARAMETER FR0M CDT 

GET !6Nt 0R t6FF* AS A TEXTOSTRiNG 

IS STRING«P*8N' 
VES - SET BPFLAG*l 

EXIT 



IS STRlNGiteFFf 
YES • SET BPFlaG'O 

EXIT 



TYPE J i -NOT 8N/eFF f 
EXIT 



wol 



20* 
2016 
2017 
2018 
2019 
2020 
2021 
2022 

2023 
2024 
2025 
202$ 
2027 

2028 
2029 

2030 
2031 



4* SEP 08* '75 



2033 
2034 
2035 
2036 

2037 

2038 
2039 

2040 
2041 

2042 
2043 
2044 
2045 
2046 
2047 
2048 
204q 

2050 

2051 

2052 



05 
05 00390 
05 00391 
05 00392 
05 003g3 
OS 00394 
05 00394 
05 00395 
05 00396 
05 00397 
05 00397 
05 00398 
05 00399 
05 0039A 
05 QC39B 
05 0039C 
05 0039D 
05 Q039E 
05 0039F 



05 
05 
05 
05 
05 
05 



0O3A0 
003A1 
003A2 
003A3 
003A4 
003A5 



0039U 

6*700078 
2^300005 A 
F25600AC 02 
3U50O0AC 02 

3«iCof)005 A 

6*7qoC36 

6»8003D5 

0*lOO8CC 02 
2250O3E8 A 

28g003E:8 A 

22300006 A 

F8B6noAC 02 
6*30f>3Ao 

2U300001 A 

"246noAX 02 

B858O0AC 02 



2^300008 A 
FKBfeoOAC 02 
6»3on3A6 
2U3Q0001 A 

FS46noAC 02 
B«t8800AC 02 



PAGE 
# FILE C8MMAND: BUILD # 



FJBUILD 






COOOOCOi 
05 C03A6 33Q002C1 02 



BLD08 



FQU 


* 


BAL#LNK 


TESTEDITACTIVE 


Ll#Xi 


5 


LB#Pi 


*CDTADR#Xi 


aW#pi 


CDTAOR 


D81 


MBDE-2 


LN#R2 


Pi 


BALjLNK 


9PENNEW 


BCRiS 


BLD4Q 


D81 


MBDEi2 


CALlM 


N©PR9MPT$FPT 


LI#Pi 


DFLTSEQ 


LIjTl 


1000 


Ll'Xl 


6 


LB#Ri 


♦CDTADRixi 


BEZ 


BLP5 


Al#Xi 


1 


LB,Xg 


#CDTADR#Xi 


L*#Pl 


#CDTADR#X? 


ss incrf^fnt parameter 


llsXX 


8 


LB,Ri 


#CDTADR#X1 


BEZ 


BLD08 


Al#Xi 


1 


LB#X? 


#CDTADRjXi 


LW#T1 


*CDTADR#X? 


oe 


M6DE§2 


MT^#0 


8UILDFLAG 



CHECK IF EDIT FILE ACTIVE 
SET Pi»ADR 8F FID IN COT 



SAVE FID ADDRESS 
©PEN BUTPUT SNLY FILE 
D8ES FILE ALREADY EXIST 



NS - SFT Pl»DEFAULT SEQ # 

Tl«l (DEFAULT INCR) 

GET PARAM2 TYPE 

TEST IF PARAMs PRESENT 

YES • SET PifSEQ * FR8M LDT 



GET PARAM3 TYPE 

TEST IF PARAM3 P«FS£NT 

YES • SET Tl*INCK FR6M CPT 



HOI 



20*44 5 


SEP OS* 


'75 










2053 


05 


003A7 


6«3oo3B2 






BFZ 


BLD12 


2054 


05 


003A8 


23LCQOOOQ 


A 


BLDio 


CI#R2 





2055 


OF 


003A9 


6«3Q03B2 






BE2 


BLD12 


2056 


05 


C03AA 


6 A 7onB33 






BAL#LNK 


CLBSE 


2057 


05 


003AB 


4650000C 


A 




XW,Pi 


R2 


2058 


05 


003AC 


6*7ooBC8 






BALjLNK 


OPEN 


2059 


05 


003AD 


3S50000C 


A 




L««#Pl 


R2 


2060 


05 


C03AE 


2^C00001 


A 




LI/R2 


1 


?06l 


05 


003AF 


3t»C no86 


02 




STWjR;? 


FILETYPE 


206? 


05 


003B0 


2*C0000G 


A 




LI#R2 





2063 


05 


003Bi 


3$Coo2CS 


02 




STWjR? 


TABERRFLAG 


206* 












ELSE 




2065 








•S* 


BLDOS 


FQU 


* 


2066 








#s# 


BL010 


fcu 


$ 


2067 












FIN 




2068 










# TYPE 


NFXT SEO 


# AND READ INP 


2069 










« 






2070 


05 


003B2 


6A70ODDB 




BLD12 


BAL^LNK 


TYPESFC TYPE 


2071 


05 


003B3 


*U080000 


A 




QEN4 


BLiE8Mj0jQ 


2072 




cooooooi 






DO 


M0DEf2 


2073 


OB 


00384 


2*F00009 


A 




LI#Ot 


9 


2074 












FIN 




207? 


05 


003B5 


6A700CB2 






BALjLKK 


READTElETYPE 


2076 


05 


003B6 


21B00001 


A 




CliRl 


1 


2077 


05 


003B7 


6»30O3D2 






Be. 


BLD30 


2078 


05 


003B8 


3£*onooB 


A 




LWjXj? 


Rl 


2079 


05 


00389 


2U4FFFFF 


A 




Al#Xg 


-1 


2080 


05 


003BA 


7*Fg 024 


02 




LB^Ol 


CARDIMGjX2 


2081 


05 


003BB 


2*30000* 


A 




Ll#Xi 


GNTBLlSZ 


2082 










« 






2083 


05 


003BC 


71F608CD 






CB,Dl 


6NTBLl#Xi 


2084 


05 


003BD 


6«3003Co 






BE 


$*3 


2085 


05 


003BE 


6430O3BC 






BDRjXi 


$•2 


2086 


05 


C038F 


6»0003C3 






B 


$ + 4 


2087 


05 


C03C0 


22F00040 


A 




LI/Dl 


t t 


2088 


05 


003C1 


75>Fg n o24 


02 




STB#Dl 


CARDIMGjX2 


2089 


05 


003C2 


3* F 0O00B 


A 




MTWj«i 


Rl 



1*3 



NAVE WE BUILT FI*ST LINE 
YES- .BYPASS RE*9PEN 
CLBSE AND SAVE BUILD FILE 

POSITION FID F&R 8PENING 

REOPEN IN IN8UT SO ESC LEAVES INTACT 

RESET Pi TO SEQt 

NOW MARK FlLfc AS IF WE AK£ IN 
EDIT MODE * RECftRD C»MM o**» 

AND R2 SB WILL NOT RE-OPEN EO 

EDIT W6ULD DO THlS# S8 SHALL BUILD 



'DDDD.DDDt 



READ INPUT LINE 



REG. 



GET BYTE CNTtt INTO INDEX 
MAKE X2 A BINARY COUNT 
GET LAST BYTE INPUT 
GET THE COUNT 9F DIFFERENT 
OF LINE TERMINATORS* 
FIND A CARRAGE RETURN 



TYPE 



BLANK OUT C/R 

IF CR DECREMENT CHARt COUNT* 



MCI 



201 
2090 
£091 
209? 
2093 
2094 
2095 
2096 
2097 
2098 

2099 
2100 
2101 
2102 
2103 
210* 
2105 
2106 
21C7 
2108 
2109 
2110 
2111 

2112 
2113 
2114 
2115 
2116 
2117 
211* 
2119 
2120 
2121 
2122 
2123 



44 SEP 08, «75 

OS 003C3 3&B000E7 02 



05 003C4 
OB 003C5 
0* 003C6 
OS 003C7 



OR Q03C8 
05 003C9 
05 003CA 
05 003CB 
05 003CC 
OS 003CD 
05 003CE 
05 003CF 
05 003Dq 
05 003Di 



2lBon08C A 
6*»20O3C8 

6*7onDC4 
OUOOOlDC 02 



6A700A56 
6A700E1F 
3U50OG08 a 

3X50O0BF 02 

6»2003A8 
6A700DC4 
0U00O21D 02 
21C0O000 A 
6»3oo3D2 
6A700B33 



05 003D4 



05 003D5 
05 00306 
05 0C3D7 
05 003D8 



STWjRI 

BLE 

BALjLNk 
DATA 



RECSIZE 

MAXCLMN 
BL025 
TYPEMSG 
ERRM3 



144 



N8 



TYPE? ! ••OVERFLOW 1 



# WRITE INPUT LINE AND INCREMENT SEQt # 

# 

BL025 



BALjLNk 

BALjLNK 

AW,Pl 

CWjPI 

BLE 

BALJLNK 

DATA 

CIjR2 

BEZ 

BALJLNK 



SETE8D 

WRITERAND8M 

Tl 

MAXSEQ 

BLD10 

TYPEMSG 

ERRM20 



BLD30 

CL9SE 



FINDS C8Lt 0F LASy N8N*BLANK 

NRITE CARD IMAGED Pi CONTAINS SEM, # 

INCREMENT SEQt * 

IS SEQt NOt T88 bIQ 

N0 a Qe READ M©RE INPUT 

YESt 

IF THIS IS BANG &UILD, 
R2 IS N8N«ZER8 



05 0C3D* 

00000001 

05 003D2 330002C1 02 
05 003D3 6*30048A 



* 

* NULL INPUT LTNFJ EXIT 

BLD30 



E*0OO00D A 



6 A 7onDC4 
OOOOOlFA 02 
6A7onB33 
6»0003D2 



FQU 

D8 

MTW#o 

BEZ 

FIN 

B 



M80Ei2 

BUILDFLAG 

FIEND 



IF ENTERED BY BUILD CSMMANDj EXIT 
T8 TEL, 



# 
« 
# 
BLD4C 



#F?LNK EXIT 

ERR8RJ NAM^D FiLE ALREADY EXISTS 

TYPE! f.FILE EXISTS; CaN»T BUILD' 
CL8SE Ft EI 



BALjLNK 
DATA 
BALjLNK 
B 



TypEMSQ 

ERRM15 

CL8SE 

BLD30 



W C1 20 
2124 

C!k x> c *Jt 

2126 
2127 
2128 
2129 

2130 
2131 
2132 

2133 
2134 

2135 
2136 
2137 

2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 

2150 
2151 

2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
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05 

05 003D9 
0? 003DA 
OB 003D8 

05 003DC 
OF 003DD 
05 Q03DE 
OF 003DF 
05 0C3EQ 

OF CC3E1 
OF 003E2 
OF 003E3 



OF C03E4 

OF Q03E5 
OF 003E6 
05 003E7 
OF Q03E8 
OF 003E9 
OF 003EA 



OF 003EB 
OF 0C3EC 
OF C03EO 
OF 003EE 

OF 003EF 



0C3D* 

6^7onD78 
2£100000 A 
3t>1000AE 02 
2*300005 A 
F*5600AC 02 
3U5000AC 02 
22300009 A 
F266D0AC 02 
3^60n0AC 02 
2^500002 A 
2^600002 A 



2U50OO01 A 

2W600C01 A 
723AD000 A 
6*3003E8 

7X3C0C00 A 
6*3on3ED 

6*0003E4 



713C0000 A 
6»30043E 
2^300007 A 
[£46ooAC 02 
B*8800AC 02 



PAGE 

# FILE C8MMAND: C8PY # 

♦ 
# 
FJC8PY 
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FGU 

BALjLNK 

LI,X 3 

STW#X3 

LI#X1 

LBiPl 

AN, Pi 

LI#X1 

LB#P? 

AW # Pp 

SIS/Pl 

SLS#P2 



TESTEDITACTIVC 



C6PYFL 

5 

#C0TADR#X1 
CDTADR 
9 
♦CDTADRjXi 

CDTAOR 

2 

2 



CHECK IP EDIT FILE ACTIVE 
INITIALISE FLAG F8R 
FIDHFID2 



8BTAIN FID 1 

AS 
BYTE 

ADDRESSES 

IN 

REGISTERS 

PI AND 

p 2 



AND FID 2 



# 

« 
« 

CPY1 
# 



SEARCH L88P 

Al#Pl 

Al#P2 
L8#X1 
BEZ 

CB#Xi 
BM 

B 



T8 DETERMINE IF FIDi f FlDg 



1 

(©< T8 BYPASS TEXTC BYTE IN C8MPR) 

1 

0#P1 

CPY1A 

0*P2 
CPYlB 

CPY1 



GET FID 1 BYTE 

QUIT WHEN END &F FID 

8R WHEN N8T EQUAL 
L88P 



* FINISH 

# 

CPY1A 



CFYiB 



FID CRMPARIS8N 



CB^Xi 

BE 

LliXi 
LB,X 2 
LW,Tl 



0#P2 

CPY32 

7 

#CDTADR# 

♦CDTADRj 



FID STRING HAS ENDED 

CHECK LAST BYTE 



Xl 
X2 



FIND 8UT WHETHER 8N 
6R 8VER SPECIFIEP 
Ti»'8N» 8R »0VER* 



HOI 20? 
2161 
216? 
2163 
2164 

2166 
2167 
2168 
2169 
2170 
81*1 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 

2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 

2188 
2189 
2190 
2191 
2192 
2193 

2194 
2195 
2196 
2197 



44 SEP 08* 
05 003Fo 
05 003^1 



05 003F2 

05 003F3 
05 003F4 
05 003F5 
05 003F6 
OB 003F7 
OR 003F8 
05 003F9 
05 003FA 
05 003FB 
03 0C3FC 
05 003FD 
05 003FE 
05 003FF 

05 QC*OG 



05 00401 
05 00*02 
05 00*03 

05 00*04 

05 00405 



05 00406 
0? 00*07 
05 00408 
05 00*09 
05 00*CA 
05 00*OB 



'75 

31800013 
6*300430 



02 



2*300005 A 
F25600AC Q2 
3U5000AC 02 
2*200000 A 
6A700BCC 
6^8on46£ 
6**003FA 

2*200001 A 
2^300009 A 

F25600AC 02 
3U50OCAC 02 
6A700BEF 

6»800401 
6A700B37 
6*7 oBEB 



6*700DC4 
0U00O27B 02 
2*30O00A A 
F2C60CAC 02 
6*300410 



6 A 70nC7F 
31B0OE28 
6830042B 

21200001 
6*300471 

325oOGOB 



CW#Ti 

bne 



X$8VER 
CPY30 



1*6 



N6T EQUAL *•> 8N 



8PEN FSR C8PY A 8VER B 



* 
CPY2 



LJ#X1 

L8#Pl 

A**Pl 

LI/X4 

BAL/LNK 

BCS# 8 

BCS#4 

LI#X 4 

Ll'Xl 

LB#Pi 

AW#Pi 

BAL#LNK 

BCS#8 

BAL/LNK 

BAL#LNk 

# 

# FINISH INITIAL 

# 

CPY3 BALjLNK 

DATA 

LI#X1 
LB,R? 

BNEZ 



♦CDTAOR#Xi 

CDTADR 



8PEN1 

CPY40 

•♦2 

1 

9 

♦CDTADR/ XI 

CDTADR 

8PENg 

CPY3 
CL8SE3 

8PEN3 



SET PitADR 8F FIU1 IN CDT 

SET X4*0 T8 SH9W FILE UNKEyED 

6PEN INPUT FILE WITH THIS FID 

D8ES FILE EXIST 

YES • IS FILE KEYFD 

YES * SET X4«l TO SH8W FILE *EYeP 

SET Pi.ADR dF FIPP IN CDT 

8PEN C»PY FILE WITH THIS FID 

FILE 2 N8 EXIST YET 

tt EXISTS»RELEASE GRANS 

8PEN F8R 8UTPUT 



IZATI8N AND PR8CESS PARAMETER 4 

TYPE! LtCOPYING' 



TYPEMSG 

MSGi 

10 
#CDTADR#Xi 

CPY10 



* 

# c&py seuRCE file through e©f 

CPY5 



CPY5A 



BAL#LKK 

C*oRi 

BE 

CI/X4 

BNE 

LW#Pi 



READSEQUEN 
L(E8F> 

CPY20 

1 
CPY50 

*1 



IS fSTARTING S£Q *! PARAM PRESENT 
YES * G8 C8PY AND RESEQ 



READ S8URCE ReCBND 

IS IT AN E8F 

YES • G8 FINISH UP 



GET SEQ * IN Pi 



HOI 



20* 


44 < 


;EP 08* 


175 








2198 


05 


004CC 


6*7onDFD 




BAl#LNK 


WRITE;? 


2199 




00000001 




D6 


M8DEf2 


2200 


05 


0040D 


35B002C3 


02 


STWjRl 


INTFLAQ1 


8201 


05 


004C£ 


35B002C4 


02 


STWjRi 


INTFUG2 


2202 










FIN 




2203 


05 


0040? 


6»00O406 




B 


CPY5 


2204 










* 




2205 










* PROCESS STARTING SEQ. # A 


2206 




- 






* 




22C7 


0? 


00410 


2«3onooB 


A 


CPY1C LliXl 


11 


2208 


05 


00*11 


FS4600AC 


02 


LBiX2 


♦CDTA0R/X1 


2209 


05 


00*12 


BK5SO0AC 


02 


LW*Pi 


#CDTADR#Xj? 


2210 


(35 


00413 


2*8003E8 


A 


L!#T1 


1000 


2211 


05 


00414 


2«30OO0C 


A 


Ll#Xl 


12 


2212 


05 


00*15 


F*C6o0AC 


02 


LB,R2 


#CDTADR#X1 


2213 


05 


00416 


6»3004lA 




BEZ 


CPY15 


2214 


05 


00*17 


2W30O001 


A 


A!#Xi 


1 


2215 


05 


00418 


FS4600AC 


02 


L8jX2 


#CDTADR#Xi 


2216 


05 


00419 


B«880CAC 


02 


LW#T1 


♦CDTADR/X2 


2217 










* 




2218 










# CSPY AND RESFQUENCE S80RC 


2219 










# 




2220 


05 


0041A 


6A700C7F 




CPV15 BALjLNK 


readsequen 


2221 


05 


00*18 


31B nE28 




CW#Ri 


L(E8F> 


2222 


05 


C0*1C 


6S30042B 




BE 


CPY20 


2223 


05 


00*lD 


6A70ODFD 




BALjLNK 


WRITER 


2224 


05 


00*1E 


6*800471 




BCS#8 


CPY50 


2225 




oooocoox 




08 


M6DE«2 


2226 


05 


00*1F 


3&eon?C3 


02 


STWjRl 


INTFLAG1 


2227 


05 


00*20 


3&5002C4 


02 


STW/Pl 


INTFLAG2 


2228 










FIN 




2229 


05 


00*21 


3U500008 


A 


AW#Pl 


Tl 


2230 


05 


00*22 


315oooBF 


02 


C*#Pi 


HAXSEQ 


2231 


05 


00*23 


6*2004lA 




BLE 


CPY15 


2232 


05 


00424 


6A70ODC4 




BAL#LNK 


TYPEMSG 


2233 


05 


00*25 


0U0OO21D 


02 


DATA 


ERRM20 


2234 


05 


00*26 


3^oonCAE 


02 


MTWjq 


CRPYFL 



WRITE REC8RD IN COPY FILE 

N8 * L88P 
INCREMENT PARAMETERS 



SET RlfSTARTlNG SEQ # 
Tl»l (DEFAULT INCR) 

GET PARAM4 TYPE 

TEST IF PARAM4 P*ESENT 

YES • SET TlflNCK FROM CPT 



ILE TNR9UGH E8F 

READ SQURCE REC8KD 

IS IT AN E8F 

YES • G8 FINJSH UP 

WRITE REC8RD IN CBPY FlLE 

D8ES RECORD ALREADY EXIST 



N8 • INCR SEW 

IS SEQt NOt T88 «TG 

N8t 

YES. 

DOES FlDlnFlDg 



1*7 



HOi 



20144 SEP 08# 


175 














2235 


05 


00*27 


6»30042B 








BEZ 


CPY20 


Kdj SAVE B8TH 


2236 


OS 


00*28 


6 A 7onB33 








BAIjLNK 


CLeSE 


6THERW!SEj SAVE ORIGINAL 


2237 


05 


00*29 


6 A 7onB37 








BAL#LNK 


CL6SE3 


AND DELETE C8PY 


223* 


05 


00*2A 


E^OOOOOD 


A 






B 


*FSLNK 


EXIT 


2239 










# 










2240 










# 


E8F I 


rSUNDS CL8SE C8py FILE 


AND EXIT 


2241 










« 










2242 


05 


00*2B 


6^700833 




CPY20 


BAliLhlK 


CLOSE 


CL9SE INPUT FIlE 


2243 


05 


C0*2C 


6*700B35 








BALjLNK 


CL8SE2 


CL8SE C8PY FJLE 


2244 


05 


00*20 


6 A 7ooDC4 








BAL#LNK 


TYPEMSG 


TYPE? ttfC8PY DeNFt 


2245 


05 


00*2E 


OU00027E 


02 






DATA 


MSG2 




2246 


05 


00*2F 


E*00O00D 


A 






D 


•FlLNK 


EXIT 


2247 










« 










2248 










« 


OPEN 


F6R C8PY 


A8N3 




2249 










# 










2250 


05 


0043C 


2*300009 


A 


CPY30 


Ll#Xi 


9 




2251 


05 


00*31 


Fcl5600AC 


02 






LB#Pi 


#CDTADR#Xi 


PliADR 8F FIP2 IN COT 


225? 


OP 


00432 


3U50nOAC 


02 






A*#Pl 


CDTAOR 




2253 


05 


00*33 


6 A 7on8EF 








BAL#LNK 


©PENS 


8PEN IN8UT.CHNGD T8 8UT 


2254 


05 


00*34 


6^8on*66 








BCR#8 


CPY35 


ERR8R IF FILE g fcXISTS 


2255 


05 


00*35 


2*300005 


A 






Ll#Xi 


5 


8BTAIN FID 1 AND FID 2 


2256 


05 


00*36 


F2560QAC 


02 






LB#Pi 


♦CDTADRjXi 


AS 


2257 


05 


00*37 


3U5000AC 


02 






A^#Pl 


COTADR 


BYTE 


S& Oo 


05 


00*38 


22200000 


A 






Ll#X4 





X4f4 MEANS N8T KfcYED 


2259 


05 


00*39 


6A70OBCC 








BALjLNK 


8PEN1 




2260 


05 


00*3A 


6^80046A 








BCS#8 


CPY36 


IF FILE D&ES N8T EXIST 


2261 


05 


00*3B 


6*400401 








BCS#4 


CPY3 


IS FILE KEYEO 


2262 


05 


00*3C 


2*200001 


A 






Ll*X4 


1 


MARK AS KEYED 


2263 


05 


00*3D 


6*000*01 








B 


CPY3 


G8 T8 B8DY 8F C8^Y 


2264 










* 










2265 










# 


6PEN 


FgR C8PY 


A 8VER A 8R 


A 8N A 


2266 










* 










2267 


05 


0043E 


2*300005 


A 


CPY32 


Ll^Xi 


5 


CHECK FlDl F8R PASSW8RD 


226ft 


05 


00*3F 


331QO0AE 


02 






HTW#1 


C6RYFL 


SET IB SH8W FID1^FID2 


226 9 


05 


00**0 


F*5600AC 


02 






LBjPi 


#CDTADR#X1 




2270 


05 


00**1 


3U5000AC 


02 






AW#Pi 


CDTADR 


Pi * FILE NAME 


2271 


05 


00*42 


F*30OC05 


A 






LB,Xl 


• Pi 


BYTE CNT 8F FILE NAME 



1*8 



HOI 20? 
2272 

2274 
2275 

2276 
2277 
2278 
2279 

2280 
2281 

228? 

2283 
2284 

2285 
22 86 
2287 
2288 
2289 

2290 
2291 
2292 
2293 
2294 
2295 
2296 

2297 
2298 
2299 

2300 
230 1 
2302 
2303 
2304 
2305 
2306 
23Q7 

2308 



44 



SEP OS, 

35 00**3 

35 00*** 

■35 00**5 

'35 00**6 

3«? 00447 

35 00**8 

35 00**9 

35 00**A 

35 CO**B 

35 QO**C 

35 00**D 

05 0044E 

35 oo**f 

35 00*5Q 

35 00*51 

35 00*52 

35 00*53 

35 00454 

35 00*55 

35 00*56 

35 00*57 

35 00458 

35 00*59 

35 00*5A 

35 0045B 

35 00*50 

35 00*50 

35 C0*5E 

35 00*5F 

35 00*60 

35 00*61 

5 00*62 

35 00*63 

35 00*64 

35 00*65 



♦75 

2S30O07£ A 

2U30O001 A 

3M50O003 A 

F <^3onoo5 A 

8»30n07E A 

2U3QO001 A 

30500003 A 

B230OG05 A 
6$>30047E 

2<e3onoo9 A 

F25600AC 02 

3U50O0AC 02 

FH300005 A 

2&3onc7E A 

2U30O001 A 

3U5Q0003 A 

F ^300005 A 

2&30O07E A 

2U300001 A 

3^500003 A 

8*3onoo5 A 
6*30047E 

2&300005 A 

F«f56o0AC 02 

3^50O0AC 02 
6A700BEB 

223Q0005 A 

F<J560CAC 02 

3U5000AC 02 

2*200000 A 
6A700BCC 
6*8qo46A 

6**00*01 

22200001 A 

6*000*01 



SLS,X1 


•2 


Al,Xi 


1 


AW, Pi 


*1 


LBiXi 


•Pi 


SLS1X1 


•2 


Al,Xl 


1 


AW, Pi 


XI 


LW,Xi 


#Pl 


BNEZ 


CPY60 


LI,X1 


9 


LB#Pi 


*CDTADR,Xi 


AW, Pi 


CDTADR 


LB'Xl 


#P1 


SlS,X1 


• 2 


Al,Xl 


1 


AW, Pi 


Xl 


LB,Xi 


• Pi 


SISjXi 


•2 


AI,X1 


1 


AW, Pi 


Xl 


LW,Xi 


•Pi 


BNEZ 


CPY60 


Ll,Xi 


S 


LB, Pi 


♦CDTADR, Xi 


AW, Pi 


CDTAOR 


BAU#LNK 


8PEN3 


LI/X1 


5 


LB,Pi 


*CDTADR#Xi 


AW, Pi 


CDTAOR 


LNX4 





BALiLNK 


OPENl 


BCS#8 


CPY36 


BCS,4 


CPY3 


LI,X4 


1 


B 


CPY3 



BYTE TO WORD COUNT 
GET NEXT WORD 

BYTE CNT OF ACCOUNT 

POINT TO PASSwORP 

FETCH PASSWORD 
PASSW8RD GIVEN • ERROR 
N8W Q8 DB SAME FOR FID? 

Pi p FILE NAME 
BYTE CNT 8F FIlE NAME 
BYTE T8 W8RD COl^T 
GET NEXT W8RD 

BYTE CNT 8F ACCOUNT 
P8INT T8 PASSWORD 

FETCH PASSWORD 
PASSW8RD GIVEN » ERROR 

8BTAIN FID 1 AND FID 2 

AS 
BYTE 

OPEN FOR OUTPUT 
OBTAIN FIDl AND FTD2 

AS 

BYTE 

X4i4 MEANS NOT KEYED 
OPENl OPENl JN t CONTINUE 
IF FILE DOES NOT EXIST 
IS FILE KEYED 

MARK AS KEYED 
GO TO BODY OF COPY 



1*9 



HOI 



201 

230g 

2310 

2311 

231? 

2314 
231S 

2316 

2317 

2318 
2319 

2320 
2321 
232? 
2323 
2324 
2325 
2326 
2327 

tZ «2* C -7 

2330 
2331 
233? 
2333 

2334 

2335 
2336 
2337 
2338 
2339 
2340 
2341 
234? 
2343 
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1&0 



0? 00*66 
05 00*67 
05 00*68 
05 00*69 



05 00*6A 
05 00*68 

05 00*6C 
05 00*6D 
05 00*6E 
05 C0*6F 
05 00*70 



05 
05 
05 
(5 5 

05 

05 
05 
05 
05 
05 
C5 
C5 
C5 
C5 
C* 
C5 



00*71 
00*72 
00*73 
00*74 
00*75 
00*76 
00*77 
00*78 
00479 

0047A 
00*78 
00*7C 
00*7D 
C0*7E 
0C*7F 
00*80 



6*70ODC* 
OU00025D 02 
6A7QOB35 
E*000000 A 



6A7onB37 
6»000*6E 

6A7onB35 
6A700B33 
6A700DC* 
0U00O258 02 
E^OOOOOD A 



6A70ODC* 
0U00O269 02 
6A70OB33 
33000CAE 02 
6*30047C 
6A700B35 
2^300009 A 
F*56nG*C Q2 
3U5000AC 02 
6A700B6A 
6*000470 
6A7qoB37 
E0OOOOOD A 
6A70DDC4 
0U00D?14 02 
E»000000 A 



* ERR8RJ C6PY FILE EXISTS AND PARAMETER 2 IS f6N» 

# 



CPY35 BALjlNK TYPEMSG 

DATA ERRP13 

BALjLNK CLSSE? 

B #FJLNK 



TYPE! »»P2?FllE fcXISTS? 



EXIT 



# EPR&R? S8URCF FILE NAMED D8£SN»T EXIST 

* 

CPY36 BALjLNK CL8SE3 

B CPY4Q 

CPY37 BALjLNK CL6SE2 

BALILNK CL9SE 

CPY40 BALjLNK TYPEMSG 

DATA ERRP12 

B #F|LNK 



* eRRbr: duplicate recsrd cspied 

CPY50 BALjLNK TyPEMSG 

DATA ERRP16 

BALjLNK CL9SE 

MTW# C8PYFL 

BMZ CPY56 

BALILNK CLBSE2 

LIjXi 9 

LB, Pi #CDTADR#Xi 

A*jP1 CDTADR 

BALjLNK DELETEFIlE 

B CPY58 

CPY56 BALjLNK CL8SE3 

CPYga 8 #FJLNK 

CPY60 BAL/LNK TYPEMSQ 

DATA ERRM19 

B #FILNK 



CL8SE E8 WITH SAVE 
TYPE! I.P1JN8 SUtH FILE* 
EXIT 



TYPE! 1-PilFlLE *9T 8EQ0 & P3 NyLL ' 

CL9SE INPUT FILE 

DONiT DELETE INPUT FILE IF 

FIDHFID2 
CL8SE COPY FILE 

SET PiiADR 9F FID? IN CDT 

DELETE COPY FIlE 

EXIT IF FIDl N&Ti FID2 

DELETE C8PY FILEj FIDltFIDg 

EXIT 

TYPE I t PASSWORD ^RRQRt 

EXIT 



HOI 



20 
2344 

5345 
2346 

2347 
2348 
2349 
2350 
2351 
235? 
2353 

2354 
2355 
2356 
2357 
2358 
2359 
236C 
2361 
236? 

2363 
2364 
2365 
2366 

2367 
2368 

2369 
237q 
2375 
237? 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
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05 0048X 
05 00*81 22300005 A 



05 00482 
05 00*83 

05 00484 
05 00485 

05 00486 
05 00487 
05 00488 

05 00489 
05 0048A 
05 0048B 



05 0048C 
OF 0048D 
OF 0048E 
05 0048F 
05 00490 
05 00*91 
05 00*92 
05 00493 

05 00494 
05 00495 
05 00496 



FS4600AC 02 
B*88ocAC 02 

3i8oo38E 
65*300489 

2*800000 A 
3*800CAF 02 
E»00OCCD A 

3X80O38F 
6*300487 
6*000388 



Q048<* 

2*300005 A 
F*4600AC 02 
B28800AC 02 

3X80O38C 
6*300494 
2*800000 A 
3&8001A0 02 
E*00O00D A 

3180038F 
6*300492 
6*000388 



PAGE 
# FILE COMMAND* SET TERMINATOR (XflB») MODE # 



lt»l 



* 

FiCR FOU 

LUXi 
L8/X? 
LW^Tl 
CWjTi 
BNE 

* 

LI*T1 
STWjTI 

B 

C^jTi 

BE 



##»«**#****«#*###*###««*#«#««**#*# 



CR3 

# 
CR5 



*CDTADR/X1 
#CDTADR#X? 
BPV8N 
CR5 


CRFLAQ 

#F;LNK 

BPVOFP 

CR3 

BPV10 



GET PARAMETER AS A TEXTC STRING, 
CHECK FOR tONi 



TURN »8N» 

SET FLAG T© INCLUDE TErMInATOR 

IN OUTPUT RECORDS. 



CHECK FOR »8FF» 

TURN *8FF» 

ERROR: *N9T ON/OFF 



# FILE COMMAND: RECORD SIZE PRESERVATION # 

* 



f:rp 



RP3 
RP5 



FQU 

Ll#Xt 

LB,X? 

Lh/Tl 

CW#Tl 

BNE 

LI#T1 

STWjTi 

B 

CWiTl 
BE 

B 



5 

•COTAOR#Xt 

♦CDTAORiXp 

BPVON 

RP5 



RP$FLAG 

♦FJLNK 

BPV8FF 

RP3 

BPVio 



GET PARAMETER AS A TEXtC STRING 
CHECK FOR »0N» 

TURN tON* 

FLAG TO RETAIN RECORD SUE 

EVEN WITH TRAILING BLANKS 

CHECK FOR tOFF« 

TURN leFFf 

ERROR! »N0T ©N/OFf 



HOI 



20 8 44 < 


SEP 08* 


'75 




2381 










238? 










2383 










£384 










353 o 5 
2386 










2387 




05 


00*97 




2388 


OF 


00497 


6*7or>D78 




2389 


OB 


00498 


22300005 


A 


2390 


OB 


00499 


FS5600AC 


02 


2391 


05 


0049A 


3^5000AC 


02 


2392 


OR 


00498 


6 A 7onB6A 




2393 


OB 


0049C 


65*8on4AQ 




2394 










2395 










2396 










2397 


OB 


00490 


6 A 700DC4 




2398 


05 


0C*9E 


00000281 


02 


2399 


OF 


00*9F 


E^oonooD 


A 


2400 










2401 










2402 










2403 


OB 


004A0 


6 A 700DC4 




2404 


OB 


004A1 


000001F6 


02 


2405 


OB 


00**2 


E*oonooD 


A 



PAGE 

# FILE C8MMAND! DELETE * 

# 
# 

FiDELETE ECU * 

BAL#LNk TESTEOITACTIVE 

L I # X 1 5 

LB/Pl #CDTADR*X1 

A^#Pl CDTADR 

bal#lnk oeletefile 

BCS#8 DLT10 

* type message and e*it 

# 

DLT5 BAL,LNK TYPEMSG 

DATA MSG3 

B ♦FJLNK 

# 

♦ ERR6RJ FILE T8 DELETE D6ESNtT EXIST 
* 

CLT1C BAl^LNK TYPEMSG TYPE I '•N&SUCMMLE f 

DATA ERRM14 

B *FjLNK 



SET Pt.ADR BF FID IN CDT 
DELETE FILE 

did file Exist 



TYPE? '••DELETED' 
YES • EXIT 



HOI 



2CJ 
84C6 
2407 
8408 
8409 

8411 
8412 
8413 
8414 
2415 

8416 
8417 

8418 
8419 
8480 
8481 

8488 
8483 

8484 
8485 
8486 
8487 
8488 
8489 

8430 
8431 

8438 
8433 

8434 

843S 

8436 
8437 
8438 

8439 
8440 
8441 
8448 



44 SEP 08, «75 



05 QQ4A3 
0* 004A3 330000B6 08 
OP Q04A4 6*lQ04A6 
OF 004A5 6 A 700B33 



05 004A6 2*300005 A 

OF 004A7 F«i5600AC 08 

05 004A8 3U5000AC 08 

OF Q04A9 6*7onBC8 

OP 004AA 6^800481 

05 004AB 6^400486 

05 OO^AC 2*800001 A 

OF 004AD 35>800086 08 

OOOOQOOl 

05 C04AE 2*800000 A 

05 004AF 3t»8008C5 08 



05 004B0 



05 004B1 
05 0C^B8 
05 004B3 
05 00*84 
05 00485 



E^oonooD A 



6A700DC4 
OU0001F6 08 
228FPFFF A 
3»80O086 08 
E»00OC0D A 



PAGE 

« FILE CQMMANO: FDIT ♦ 
#««###*«♦#«**«#•»###«*«>* 

# 

# 

FSEDIT 



15*3 



FGU 
MTWjo 
BIZ 
BALjLNK 



FILETYPE 

EDT5 

CL8SE 



# 

# 8PEN 

# 
EDT5 



FILE AND SET FILE TYPE 



Ll,Xi 
LB, Pi 
AW, Pi 

BALjLNK 

BCS,8 

BCS,4 

Ll/Tl 

STW,Tt 

D9 

Ll#Tl 

STWiTl 

FIN 
B 



#COTADR#Xi 

CDTADR 

9PEN 

EDT10 

EDT80 

1 

FILETYPE 

M6DE«8 



TA8ERRFLAQ 

♦FtLNK 



FILETYPEfl NEvEW OPENED 

♦1 OPENED AS IN8UT, KEYLD 
CL9SE FILE IF EVER 9PENE0 



SET PliAOR 6F FIP IN COT 



6PEN FILE 
D8ES FILE EXIST 
YES • IS IT «EYEtf 
YES • SET FILETYPenl 



* EPR8RJ SeURCr FILE DQESN'T FXIST 
EDT10 



EDT15 



BALjLNK 
DATA 
Ll#Ti 
STW,T1 

B 



TYPEMSG 
ERRM14 

•1 

FILETYPE 

♦F8LNK 



EXIT 

TYPE I i»N6 SUCH FILE* 
SH8W UNSUCCESSFUL ©PEN 



FILE EXISTS BUT IS N8T KEYED 



HOI 20144 $EP QBs 
2443 05 00486 
8444 OP 004B7 
£445 05 00488 
£44fe 05 00489 



»75 

6^700833 
6 A 7onOC4 
OU0001EB 
6»0004B3 



EDTgO 



02 



BALiLKK 


clbse 


BAL#LNK 


TVPEMSG 


DATA 


ERRM1P 


B 


EDH5 



i§4 
CL8SE FILE 
TYPEI »*FJLE N0T KEYEDj MUST COPYt 

EXITt 



HOI 



30U4 SEP OBi '75 



155 



?447 












PAGE 




844S 








##*«####*######♦#♦#«♦## 


?449 








* 


FILE 


C8MMANDJ 


END * 


£450 








##*«##**«#**»#*««*#«#*# 


8451 








# 








^45P 








* 








24531 




05 QO48A 




FSEND 


FQU 


* 


8454 


OF 


OO^BA 3*00O0B6 


02 






mtw#o 


filetype 


5455 


05 


004BB 6*l004BD 








BIZ 


$*8 


2456 


0* 


004BC 6 A 7onB33 








BAULNK 


CLOSE 


54557 




ooouocou 








oe 


MBDEst 


P45g 






#s* 






CAL3#6 





2459 












FLSE 




8460 


OS 


004BD Q49Q0001 


A 






MJEXIT 




2461 












FIN 





was Input file ever named 
n9 • skip cl9se 
cl9se input file 

EXIT T8 BTM 
EXIT T8 UTSt 



HOI 



20 J 


44 < 


5EP 08# 


'75 










2462 












PAQE 




3463 










##«#«**««««*««*«««##•*#*• 


2464 










* FILE 


COMMANDS 


MERGE ♦ 


2465 










#«««#***##«#*#«««*#*#«««# 


2466 










# 






2467 










# 






2468 


of 


004BE 


6 A 700D78 




f:merge 


BALjLNK 


TESTEOITACTI 


2469 


05 


00*BF 


22300000 


A 




Ll#Xl 





2470 


05 


OO^CO 


3530019E 


02 




STWjXI 


MvDjRECjCM 


247j 


OF 


OO^Cl 


2^300005 


A 




LI#Xi 


5 


2472 


05 


C0*C2 


F«i560CAC 


02 




L8*Pl 


♦CDTAORjXI 


2473 


05 


Q0*C3 


305000AC 


02 




AW/Pl 


CDTADR 


2474 


OB 


Q0*C4 


3&5oncB3 


02 




STWiPi 


FlDlADR 


2475 


05 


00*C5 


6*7on8CC 






BALiLNK 


dPENi 


2476 


05 


Q0*C6 


6*8o046E 






BCSi8 


CPY40 


2477 


05 


0O^C7 


6»4on52C 






BCS#4 


MRG80 


2478 










« 






2479 


05 


C04C8 


28500000 


A 




Ll#Pl 





2480 


05 


00*C9 


3&5000B8 


02 




STW#P1 


FIRSTPR8M 


2481 


05 


CO^CA 


3S500E28 






L**Pl 


KE8F) 


2482 


05 


OO^CB 


3b5oooBC 


02 




STW # P! 


LASTFR6M 


2483 










# 






2484 


05 


004CC 


2M30O001 


A 




Al#Xl 


1 


2485 


05 


OO^CD 


FSSftooAC 


02 




LB,P t 


♦CDTAORjXi 


2486 


05 


004CE 


2^300001 


A 




Al#Xi 


1 


2487 


05 


CO*CF 


21500003 


A 




Cl*Pl 


SEQ2 


2488 


05 


CO*Dq 


6^300409 






BNE 


MRGlo 


2489 










* 






2490 


05 


004D1 


F85600AC 


02 




L-B,Pi 


#CDTADR#Xi 


2491 


05 


004D2 


3U50OCAC 


02 




A^#Pl 


CDTAOR 


2492 


05 


00^03 


Bcf6on005 


A 




LW,Pg 


*P\ 


2493 


05 


004D4 


3S6000B8 


02 




STWiPg 


FTRSTFR8M 


2494 


05 


OC^DS 


2U500001 


A 




A!#P1 


1 


2495 


05 


00^D6 


B«i60OO05 


A 




LW/P2 


4P1 


2496 


05 


Q0*D7 


3!560O0BC 


02 




STWjPg 


LASTFR8M 


2497 


05 


00*D8 


2U300002 


A 




AliXt 


2 


2498 










# 







1&6 



RESET THE RECQrD CNTt 

SET Pi T& ADDRESS 6F FtDl IN CDT« 



6PEN MERGE S8URCE IN INPUT M6pE» 
ERR©R IF N&N-EXISTENT 
8R N6T HEYEDt 



SET UP INPUT RAN^F AS DEPART 
ENTIRE FILEt 



BUT READJUST IF SPECIFIC, RANGE 
GIVEN 



C6MPUTE ADDRESS &F SEQUENCE PAIR 
AND ST»RE THEM AWAYt 



STEP AR9UND »INT»» 



HOI 



50? 44 I 


SEP Q8# 


'75 








£499 


05 


00*09 


3*5onoB8 


02 HRQ1C 


LWjPi 


FIRSTFR9M 


2500 


05 


00*DA 


6A7Q0C61 




BALjLKK 


READNXTRANOeM 


25 CI 


05 


00#0B 


3iBonE28 




CbjRi 


L<E&F) 


25C? 


05 


004DC 


6»10052a 




BGE 


MRQ70 


?5C3 


05 


OO^DD 


3lB on cBC 


02 


CWjRl 


LASTFR8M 


25C* 


05 


OO^DE 


6*20O52A 




BG 


MRQ70 


5505 








# 






2506 


05 


0040F 


6 A 70OB33 




BAL#LNK 


CL8SE 


2507 








* 






2508 


05 


00<*E0 


2U30OC02 


A 


Al*Xl 


2 


2509 


05 


QO*El 


F<?5600AC 


02 


LB, Pi 


*CDTADR#Xi 


2510 


05 


004E2 


3U50O0AC 


02 


AW/Fl 


CDTADR 


2511 


05 


00*E3 


3&5000B* 


02 


STWiPl 


FID2ADR 


2512 


05 


00*E4 


6^7ooBC8 




BALjLNK 


8PEN 


2513 


05 


00*E5 


6*8on5lC 




BCS#g 


MRG3Q 


2514 


05 


G0*E6 


6^400530 




BCS#4 


MRG82 


2515 








# 






2516 


05 


C0*E7 


2U3Q0002 


A 


Al#Xl 


2 


2517 


05 


00*E8 


F2S600AC 


02 


LB,Tl 


*CDTADR,Xi 


2518 


05 


004E9 


3W80O0AC 


02 


AW^Tl 


CDTAOR 


2519 


0* 


OO^EA 


8£500008 


A 


L*/Pl 


*T1 


2520 


05 


004EB 


2U800001 


A 


AI#T1 


1 


2521 


05 


OO^EC 


B*600C08 


A 


1>#P2 


*T1 


2522 








# 






2523 


05 


004ED 


6 A 700B39 




BAL#LNK 


DELETE 


2524 


05 


OO^EE 


6y8004F0 




BCS#8 


$+2 


2525 


05 


OO^EF 


6A700C7F 




BaLjLNK 


READSEQUFN 


2526 


05 


OO^FQ 


3<il0O00B 


A 


LW,X3 


R! 


2527 


05 


00*^1 


3$500008 


A 


STW#Pi 


Tl 


2528 


05 


00**2 


3*9600009 


A 


STWjPjj 


J? 


2529 








* 






2530 


05 


OO4F3 


6^700633 


MRQ13 


BAliLNK 


CL65E 


2531 


05 


Q0*F4 


22AQ03E8 


A MRQ14 


LliP3 


1000 


2532 


05 


00*F5 


2U30O001 


A 


AliXl 


1 


2533 


05 


00*P"6 


F«5600AC 


02 


LB, Pi 


*CDTADR#*i 


2534 


05 


004F7 


6»3004FD 




BEZ 


MRG15 


2535 


05 


00*F8 


2U300C01 


A 


Al,Xl 


1 



VERIFY EXISTENCE 8F RECORDS TB 

MaVEt 

IF REC8RD READ WA S IE6F»# 

6R GREATER THAN LaST Fr&Mj 7HEN 

tNBTHING TB MBVE' 

YESt CLBSE FILE SB W£ CAN 
USE FIEI RBUTINES T8 DELATE 
fT9t RANGEt 
STEP T8 FID2 AND ©PEN 



IF N8N«EXI$TENT>GREATE NEW FILE. 
ERR8R IF N8T KEY&D 

N8w GET SEQUENCE NUMERS &F «T0» 
RANGE 

IN PliPL • TEMP8KARILY. 



DELETE fT8» RANGE 

GET tSTBPt SEG * IF LAST »TB» 

N8T HIT EXACTLYt 

»ST8Pt SEO # TB X3 



CL8SE FID2 AS FJEI 

default Increment 



increment given* 



1&7 



Hoi 



20?44 SEP 08* 


<75 








2536 


05 COUP'S 


F*A600AC 


02 


LB#P3 


*CDTADR*X1 


2537 


05 00*FA 


3UAonOAC 


02 


***P3 


CDTADR 


2538 


05 00*FB 


SeJAoriOOA 


A 


LW/P3 


•P3 


8539 


05 004FC 


3saoogBo 


02 


STWjP3 


DFLTINCR 


2540 






* 






2541 


05 004FD 


3*500083 


02 MRQib 


LW,Pi 


FlDlADR 


2542 


05 OO^FE 


6A700BCC 




BALjLK'K 


8PEN1 


2543 


05 QO*FF 


3«?5onoB4 


02 


LW#Pi 


FID2ADR 


2544 


05 00500 


6A7 nBEF 




BALjLK'K 


8PEN2 


2545 






* 






2546 


05 00501 


6*70ODC4 




BALjLNK 


TYPEMSG 


2547 


05 00502 


0U00O288 


02 


DATA 


MSQ5 


2548 


05 00503 


3«i5ooo88 


02 MRQ17 


LW#Pt 


FIRSTFR0M 


2549 


05 00504 


6 A 7onC6l 




8AL#LNK 


READNXTRANDBM 


255o 


05 OOSoS 


3K5 n008 


A 


L**P\ 


Tl 


2551 


OF 00506 


3X60OF28 


MRG2C 


CW#R1 


L(E8F) 


2552 


05 00507 


6*lon522 




BGE 


MRQ55 


2553 


05 ooSca 


3i»0O0BC 


02 


CbsR\ 


LASTFR8M 


2554 


05 00^09 


6»2oo522 




BG 


MRG55 


2555 


05 0050A 


3^900009 


A 


STW#Ri 


T2 


2556 


05 OOSoB 


3*9oooBC 


02 


SW#T2 


LASTFR8M 


2557 






# 






2558 


05 0050C 


6A700DFD 




BALiLNK 


WRITE2 


2559 


05 0050D 


3310O19E 


02 


MTW#1 


MVDjRECjCNT 


2560 


ooooooox 




oe 


M8DE-2 


2561 


05 005CE 


3$Bon2C3 


02 


STWjRt 


INTFLA61 


2562 


05 0050F 


3b50O2C4 


02 


STWjPI 


INTFLAQ2 


2563 








FIN 




2564 


05 00510 


2U90O000 


A 


AliT2 





2565 


05 00511 


6^300523 




BEZ 


MRG56 


2566 


05 Q05l2 


3U50O00A 


A 


AW#Pl 


P3 


2567 


05 00513 


3150O0BF 


02 


CWiPi 


MAXSEQ 


2568 


05 00514 


6«200518 




BLE 


MRG25 


2569 


05 00515 


6A70ODC4 




BAL#LNK 


TYPEMSG 


2570 


05 00516 


OU00021D 


02 


DATA 


ERPM20 


2571 


05 00517 


6^000522 




B 


MRG55 


2572 


05 00518 


3150OO01 


A MRQ25 


CW/Pi 


X3 



1&8 



R.QPgN FILES IN PROPER M§DE, 
S6URCE IN IN^UT* 



GET FIRST iFR8Mi REC8R0 IN FILE 1* 

FIRST »TB> SEG * T8 Pi, 

IF E8F READi 

WE»RE DSNEt 

IF SEQ * READ GREATER TRAN LAST 

»FR8M? HEtRE D8NE. 



WRITE RECORD INT© FllE2» 
C8UNT REC.S M8VEU. 



INCREMENT WRITE §EQ *t 
IS SEQ. N8, T88 »IG 
N8 1 

YES. 



IF CURRENT WRITE SE * MEETS 



HOI 



20U4 SEP 08* 


'75 










2573 


05 


00519 


6*1qo526 






BGE 


MRQ65 


2574 


05 


0051A 


6 a 7qoC7F 






BALjLNK 


READSEQUEN 


2575 


05 


005lB 


6*000506 






B 


MRG20 


2576 










# 






?577 










• 






2578 




05 


0051^ 




MRQ3C 


EQU 


s 


2579 


05 


OOSlC 


2^300002 


A 




AX^Xl 


2 


2580 


05 


005lD 


Fef860QAC 


02 




LB/Tl 


*CDTADR#Xi 


2581 


05 


C051E 


3W80nCAC 


02 




AW#Tl 


CDTADR 


2582 


05 


OoSlF 


8<J800008 


A 




l>#Tl 


*T1 


2583 


05 


00520 


3*IOOE28 




MRG35 


L«*,X 3 


L(E9F) 


2584 


05 


00521 


6»0004F4 






B 


MR614 


2585 










# 






2586 










* 






2587 


05 


00522 


3»50O00A 


A 


MRG55 


Sto*Fl 


P3 


2588 










« 






2589 


(35 


00523 


6^7onB33 




MRG56 


BAULNK 


CLOSE 


2590 


05 


00524 


6A7ooB35 






BAL#LNK 


CL8SE2 


25^1 


05 


00525 


6*000661 






B 


MVE40 


2592 










# 






2593 


05 


00526 


3&80OQBC 


02 


PRQ65 


STWjRi 


LASTFR8M 


2594 


05 


00527 


6*7ooB33 






BAL^LNK 


CL&SE 


2595 


05 


00528 


6 A 7onB35 






BAULN'K 


CLeSEP 


2596 


05 


00529 


6*000674 






B 


MVE56 


2597 










* 






2598 


05 


0052A 


6 A 700B33 




MRQ70 


BALjLNK 


CL©SE 


2599 


05 


Q052& 


6*000683 






B 


MVE58 


2600 


05 


0052C 


6*7onB33 




MRQ80 


BaLtLNK 


CL8SE 


2601 


05 


0052D 


6 A 7ooDC4 






BaUINK 


TYPEMSG 


2602 


05 


0052E 


0U00O206 


02 




DATA 


ERRM17 


2603 


05 


0052F 


E*00OO0D 


A 




B 


•FsLNK 


2604 










# 






2605 


05 


00530 


6V0OB33 




MR382 


BALiLNK 


ciesE 


2606 


05 


00531 


6*7ooDC4 






BaI/LNK 


TYPEMSG 


2607 


05 


00532 


0M00OP0C 


02 




data 


FRRM18 


2608 


05 


00533 


E*oooooO 


A 




B 


#FSLNK 


2609 










* 







1&9 



fSTQPi SEQ * WE'KC CUT BFF • 
GET NEXT !FR8Mt NEC8RD. 



6UTPUT FILE DtfESN'T EXIST* 
GET STARTING 8UT?UT SEQUENCE* 



SET 'ST8P* SEQUENCE T6 E0F, 



SUCCESSFUL MERGE* M8VE DEST SEQ * 
BACK T8 LAST USED* THEN USE 
fMKf C8DE AFTER £L8SINGt 



SET LAST SEQ * RtADt 



THEN USE 1MK1 C9DE. 

CL8SE INPUT FILE 
THEN USE »MK» R8UTINE 



iSQURCF N8T KEYEPt 



DEST. N8T KEYED 



HOI 



20*44 5 


SEP 08i 


» 


75 












2610 














PAGE 






2611 












*#*«*#*##*#*»•«***«*****# 




261? 












# FILE 


C8MMAND: 


TA * 




2613 












#####*#«#«*«#**««*#««#«#« 




2614 












# 








2615 












# 








2616 




05 


00F3* 




FSTA 


FQU 


$ 




2617 




oooooooi 






oe 


M6DE1? 




2618 


OS 


00534 




2*300005 


A 




LliXt 


5 


C8MPUTF ADDRESS QF TAB SPECI 


2619 


OP 


00^35 




F«J56noAC 


02 




L8,Pi 


♦CDTADRiXi 


IN CDT. 


2620 


OP 


00536 




3U50O0AC 


02 




AW^Pi 


CDTADR 




2621 












• 








2622 


OF 


00537 




B£50O005 


A 




lk#Pl 


#P1 


GET SPECIFIER 


2623 


05 


00538 




22300004 


A 




Ll/Xi 


4 


AND CHECK VALIDITY 


2624 


OF 


C0&39 




31560015 


02 




C^#Pl 


XjF»l#Xl 




2625 


OF 


0053A 




6»3on53F 






BE 


TA5 




Hoco 


05 


00538 




643on539 






BDRiXl 


$•2 




2627 












« 








2628 


OF 


C053C 




6*7onQC4 






BALiLNk 


TYPEMSG 


ERR6R: N6T F#M#St 


2629 


OF 


0053D 




0U00O2E5 


02 




DATA 


UTSM3 




263C 


OF 


0053E 




6*000004 






B 


MASTERPARSER 




2631 












* 








2632 


05 


0053^ 




6*060540 




TA5 


FXU 


TABSET*1jXi 


CHANGF MUC TABS F8R F,M ©R S 


2633 












♦ 








2634 


OF 


00540 




E»00OO0D 


A 




B 


#FSLNK 


RETURN 


2635 


OF 
03 
03 
03 


00541 
00001 
00002 
00003 




0*100001 
2&00OC00 
8U00OC00 
0* 


03 
X 
A 
A 


TA8SET 


MJDEVlcE 


M!UC# (TA8j7#0jQj 


0) FTABS 




03 


00003 


I 


0/ 


A 












03 


00003 


2 


OU 


A 












03 


00003 


3 


ou 


A 












03 


00004 




ou 


A 










2636 


OF 
03 
03 


00542 
00005 
00006 
00007 




0*100005 
2*000000 

8U00O00O 

0* 


03 
X 
A 
A 




MjDEvlCE 


M:UCi(TAB*10jl9^ 


37j0) MTABS 



160 



Wei 80*44 SEP C8# 
05 00007 X 
03 00007 2 
03 Q00C7 3 
03 00008 

P637 0* 00543 
03 00009 
03 0000A 
03 00008 
03 OOOOB X 
03 OOOOB 2 
03 OOOOB 3 
03 OOOOC 

2638 OR Q0§44 
03 OOOOD 
03 COCOE 
03 OOOOF 

03 OOOOF I 
03 OOOOF 2 
03 OOOOF 3 

03 00010 
?639 



'75 




0* 


A 


13 


A 


2t> 


A 


ou 


A 


0^100009 


03 


2*000000 


X 


8U000000 


A 


0^ 


A 


0» 


A 


Xu 


A 


It 


A 


ou 


A 


O^lOOOOD 


03 


2*000000 


X 


8U0OOC0O 


A 


04 


A 


0* 


A 


0<* 


A 


24 


A 


OU 


A 



1*1 



MIDEVICE M:UC#(TABj8#16j30*0) 



S T ApS 



M;DEVICE MjUC/(TA8*8#12j36#0) 



CTABS 



FIN 



HOI 



20! 
2640 
2641 
264? 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
26 7 o 
2671 
2672 
2673 
2674 
2675 
2676 



44 SEP 08* '75 



1*>2 



05 0054t> 



05 00545 
05 00^46 
05 00547 
05 00548 
05 00549 
05 0054A 
05 0054B 
05 0054C 
05 0054D 
05 Q054E 
05 0054F 
05 00550 



22300005 A 

F*46ncAC 02 
B«58O0AC 02 
2*300007 A 
F84600AC 02 
B*8800AC 02 
208FFFFF A 
6Slon580 
2i800C8C A 
6*100580 
6*700C6D 
6^800583 



OOOOOCOl 
05 00551 330001A1 02 
05 00552 6*300554 
05 Q0553 041002CC Og 



Op 00554 

05 00555 
05 00556 
05 00557 



05 00558 
05 00559 
05 0055A 



6 A 700DDB 
4U080000 A 
330001A1 02 
6*300562 



3£EonoE7 02 
3*8onoE7 02 
331000E7 02 



PAGE 

* RECORD COMMANDS ADD COMMENTARY # 



RJC6MMENTARY 

IUM 
LBjX ? 

LW,Pt 

LI#X1 

LB#XP 

H*,T1 

Al#Tl 

BIZ 

CI#Tl 

BGE 

BALjLKK 

BCSj8 

oa 

MTWiO 
BEZ 

CAL1#1 
FIN 



ecu * 

#CDTADR#Xi 

*CDTADR#X2 

7 

#CDTADR#Xl 

*CDTADRiX2 

•1 

CMT4Q 

MAXCIMN 

CMT4Q 

READRANDOm 

CMT50 

MODE*? 

CT*FLaG 

NOPROMFT$FPT 



SET RESTARTING SeQ # 

SET TliSTARTING COLUMN # 
ApJ TO INTERNAL COL« * 

IS COLt # >* MAX COL« « 

YES • ERR&R 

READ FIRST REC9R0 

DOES IT EXIST (IF NO* ERROR) 

IS TYPE FLAG ON 

NO 

YES, TURN OFF PROMPT 



* 
CMTlO 



TYPE SEQt * AND READ IN COMMENTARY 

TYPE! 'DDDDtDDD* 



BALiLNK 
GEN4 

MTW#o 
BEZ 



TYPESEQ 
BLsEQMsCmO 
CT$FLAG 
CM10A 



IS TYPE FLAG ON 
NO* CONTINUE 



CT SPECIFIED, TYPE CARD T8 COLUMN REQUESTED 



Lw# Do 
STW1T1 

MTW#t 



RECSIZE 
RECSIZE 
RECSIZE 



SAVE RECSIZE TEMPORARILY 
SET NEW RECSIZE (COLUMN NO) 



1 20S44 < 


SEP 08/ 


'75 












3677 


OF? 


00556 


323oooc8 


A 






L*#X1 


Tl 


£678 


OB 


0055C 


72160024 


02 






L8/X3 


CARDIMQjXi 


2679 


05 


005BD 


£<J40nc5C 


A 






LI#X? 


«#» 


26 8 


OS 


0055E 


7&460024 


02 






STB#X? 


CARDIMQjXI 


2681 




cooooooi 








D8 


M6DEi2 


268? 


05 


0055? 


04lOO?D2 


02 






CALi*l 


TPCtFPT 


2683 














ELSE 




2684 








*S# 






LI#X? 





2685 








*s* 






LW/T? 


Tl 


2686 








*s« 






lWo 


1 


2687 








#s« 


CM 


iQB 


CARDIMG,X? 


2688 








#s* 






CAL3#1 





2689 








#s* 






AI#X2 


1 


2690 








#s# 






6DR#T? 


CM10B 


2691 














FIN 




269? 


CB 


00560 


7bl60024 


02 






STBjX 3 


CARDIMG#X1 


2693 


OF 


00561 


3&E0O0E7 


02 






STWjDo 


RFCSIZE 


2694 










# 








269*5 




05 


00562 




CM10A 


FQU 


* 


2696 


05 


C0562 


6A700CAE 








BALjLKK 


READTELETYPE2 


2697 


05 


00563 


2UBFFFFF 


A 






Al#Rl 


•1 


2698 


05 


00564 


E«30000D 


A 






BEZ 


*R?LNK 


2699 


OB 


00565 


2^300000 


A 






LI#X1 





2700 


05 


00566 


32400008 


A 






Lfc'X? 


Tl 


2701 


05 


00567 


22900040 


A 






Ll#T2 


t f 


2702 










* 








2703 










# 


M6VE 


C6MMENTARY INT8 SPEClFi 


2704 










* 








2705 


OB 


00568 


72E60176 


02 


CMT15 


LB # Oo 


TTYIMQ,Xi 


2706 


OB 


00569 


7bt80024 


02 






STB#DC 


CARDIMG#X? 


2707 


OB 


0056A 


2U30O001 


A 






Al#Xt 


1 


2708 


OB 


00568 


2U400001 


A 






Al#X? 


1 


2709 


OB 


0056C 


64B 0n5 6E 








BDR#Ri 


$♦2 


2710 


CB 


0056P 


6»00OB74 








B 


CMT20 


2711 


OB 


0056E 


2H0OO8C 


A 






Cl#X2 


MAXCLMN 


271? 


05 


0056F 


6*100568 








BL 


CMT15 


2713 


CB 


00570 


71960176 


02 






CB*T? 


TTYIMGjXi 



COLUMN F8R PR8MPT 

ADO T8 TYPE JMAGk 

TYPE CARD T8 CaMMgNTARY 

GET N8. CHARS T8 TYPE 

GET NEXT CHARACTER 
TYPE IT 

C8NTINUE UNTIL ALL CHARS* TYPED 
REST8RE CHARACTER T8 CARP IMAGE 



1*3 



READ COMMENTARY 

SET R| a * 8F CHARS READ, LESS 

IF ©NLY C/R READ - EXIT 



C/R 



M8VE C8MMENTARY JNT8 SPECIFIED 
C8LUMN 



TEST IF ANY M8RE CHARS LfcFT T8 M&VE 

N8 • G8 FINISH UP 

YES • TEST IF ANY r88M L^FT ©N CARD 

YES • L88P 

N8 . TEST IF REMAINING CHARS ARE ALL 



Hoi 



20 J 


44 J 


SEP 08# 


»75 




£714 


OS 


00571 


6»3oo589 




?715 


OB 


00^72 


20300001 


A 


2716 


05 


00573 


6^600570 




2717 










2718 










3719 










2720 


05 


00574 


21400C8C 


A 


2721 


05 


00575 


6*100579 




272? 


OB 


00576 


7&980G24 


02 


2723 


OS 


00577 


2U40OO01 


A 


2724 


OF 


00578 


6*000574 




2725 










2726 










2727 










2728 


Of? 


00579 


6 A 700A56 




2729 


OP? 


0057A 


6A70OE1F 




2730 


OB 


00578 


6*7qoC7F 




2731 


0*5 


0057C 


3lB nE28 




2732 


05 


005?D 


6»3on586 




2733 


055 


G057E 


3250000B 


A 


2734 


05 


0057P 


6*000554 




2735 










2736 










2737 










2738 


05 


00580 


6 A 700DC4 




2739 


05 


00581 


OUQ00261 


02 


2740 


05 


00582 


6*000004 




2741 










2742 










2743 










2744 


05 


00583 


6 A 700DC4 




2745 


05 


00584 


QU00022E 


02 


2746 


05 


00585 


6*000004 




2747 










2748 










2749 










2750 


05 


00586 


6*700DC4 





BNE 

AI#X1 

BDR#Rl 



CMT70 
I 

• *3 



BLANKS (IF N8T# ERR8R) 
L88P 



164 



# BUNK 6UT REST 8F CARD AFTER NEW C8MMENTARY 
# 

CMT20 CI/Xp MaXCLMN BLANK 8UT REST 8* CARD 

BGE CMT3Q 

STB#T? cardimg^xp 

Al#X2 i 

B CMT20 

* WRITE NEW RECORD AND THEN GET NEXT REC8RD T8 PR8C^SS 
* 

CMT3O BALiLNK SETE8D 

BALjLNK WRITERAND8M 

BALjLNK READSEQUEN 

CW # Ri L(EBF) 

BE CMT60 

LW#P1 Rl 

B CMT10 



READ NEXT REC8RD 

WAS IT AN E8F 

YES • ERR8R 

SET PliSEO * 8f RFC8RD 

Q8 GET M8RE C8MM&NTARY 



# ERR8RJ SPECIFIED C e LUM* NyMBER > MAX COLUMN NyMBE* 
CMT4O BALiLNK TYPEMSG TYPEI ».P2$C0L>72» 



DATA ERRP14 

B MASTERPARSER 



EXIT T8 PARSER 



« ERR8RJ INITIAL SE^t * D8eSN»t EXIST 

# 

CMT50 BALjLNK TYPEMSG TYPE! ?.P1|N& SUCH REC 1 

DATA ERRPl 

B MASTERPARSER EXIT T8 PARSER 
« 

• ERR8RJ E8F HTT 

* 

CMT60 BALjLNK TYPEMSQ TYPE I t»-E8F HIT* 



HOI 



20S44 SEP 08* '75 



165 



2751 


0* 00587 


000001D5 


02 


DATA ERRM1 


273P 


05 00588 


6*ocnoc4 




B MASTERPARSER 


2753 








# 


2754 








# ERR8R! CehM^NTARV 9VeRFL8wS 


2755 








# 


2756 


0?? 00589 


6^7cnDC4 




CMT70 ' BALiLNK TyPEMSG 


5757 


05 0058A 


OUOCOlDC 


02 


DATA ERRM3 


2758 


OS 00588 


680C0579 




B CMT30 



CARD 



EXIT T9 PARSER 

TYPE I ««»8VERFL8w» 

G8 C8NT1NUE WITH N£XT REC8RD 



HOI 



20J44 J 


SEP 08* 


•75 












2759 














PAGE 




2760 










##«#***#«««*#•#»#«#•##*##### 


2761 










# 


REC6RD COMMAND 


I DELETE ♦ 


2762 










#«*«*#•*«##•«•#***#*«*«*«* «4 


2763 










# 








2764 










# 








2765 




05 


0C58U 




RjDELETE 


EGSU 


$ 


2766 


OS 


0058C 


2^300005 


A 






LI#Xi 


55 


2767 


05 


0C58D 


F«!46ooAC 


02 






LB^X 2 


#CDTADR#Xi 


2768 


OF 


0058E 


BSSanOAC 


02 






l>,Pl 


*CDTADR#X? 


2769 


05 


0058F 


2U400001 


A 






Al*X2 


1 


277o 


05 


00590 


826800AC 


02 






l**Pp 


#CDTADR>X? 


2771 


OB 


00*591 










D61 


MBDE"? 


277? 


05 


00591 


3^100207 


02 






MTWM 


TABXFLAG 


2773 


OP 


00592 


6*7ooB39 








BAL#LNK 


DELETE 


2774 


05 


00593 


E«0OO00D 


A 






B 


#R?LNK 



1&6 



GET ADDR 8F FIRST SEQ * IN CDT 
SET PliFJRST SEQ * 
P2§LAST SEQ * 



DELETE ALL BETWEEN THESE SEQ #' S 
EXIT 



HOI 



20 5 
2775 
2776 

2777 
2778 

?779 
2760 
2781 
2782 

£783 
5784 

2785 
5? 7 66 
2787 
2788 
2789 
?790 
2791 
279P 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
28C1 
280? 
2803 
2804 
2805 
2806 
2807 
2808 
28C9 
2810 
2811 



44 SEP 08i »75 



05 00594 
05 C0S94 2*200002 A 
05 00595 6*000599 



05 00596 
OB 00596 2^200000 A 
05 00597 6*000599 



05 

05 
05 

05 

05 
05 
05 

05 
05 
05 

05 
05 
05 
05 
05 
05 



05 
00598 
00599 

0059A 
0059B 
0059C 
0059D 
0059E 
0059F 

0O5A0 
005A1 

005A2 
005A3 
005A4 
005A5 
005A6 
005A7 



05 005A8 



0C59* 

2*200001 A 
2* A 0OC00 A 
2*300005 A 
F24600AC 02 
B£5800AC 02 
3t>50noB9 02 
3&8onc89 02 
20400001 A 
BH88O0AC 02 
3&80OOBE 02 
2^300007 A 
F86600AC 02 
3U600CAC 02 
22300008 A 
6A700A34 
6^7onC6l 



31800C28 



PAGE 
* REC8RD CSMMANDSI FIND AND DELETE (TYPE > * 



167 



RJFIND$SEQUENCE 
Ll#X4 



RJFINDiDELETE 
U>X4 

B 



RJFIND$TYPE 

LI/X4 

LI#X1 

L8#X2 

LW/Pl 

STW # P t 

STW#Tl 

AliX2 

LW#T1 

STW#Ti 

Ll#Xi 

LB/P2 

Afc*F2 

Ll*Xi 

BALilNK 

BALjLNK 



ECU * 

2 

RlFJND$TYPEM 



ECU * 



R:FIND$TYPE*1 



EQU * 

1 



5 

#CDTADR#X1 

♦CDTADRjX? 

FIRSTSET 

FIRSTSET 

1 

*CDTADR#X2 

LASTSET 

7 

♦CDTADRiXi 

CDTADR 

8 

PRaCESSC8L#PAlR 

READNXTRAND9M 



USE X4«2 F8R ?FS f . 



USE X4i0 F8R »FD f 



# 
# 
« 
FNQ20 



READ EACH REC8RD AND SEE IF IT 
0#R1 L(E8F) 



USE X4*l F8R iFT' 

USE P3 T8 C8UNT * 8F MATCHES F8UND 



SET FliFXRST SEQ * IN CDT 

FIRSTSET»1ST SEQ * IN CDT 

SET FIRSTSETUST SEQ * IN CDT 
LASTSETi2ND SFQ # IN CDT 



SET P2iABS8LUTE ADDR 8F STRING JV 
MATCH 

PR8CESS C8L # PA*AtfS 

READ FIRST SEQ * 8R NEXT HIGHEST 

C8NTAINS THE S^ECI* IED STRING 

WAS IT AN E8F 



Hoi 



20* 
281? 

s 8 1 3 

pais 

2816 
£817 
2818 
2819 

2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 

2828 

COC3 

2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
28*0 
28*1 
28*2 
28 43 
28** 
28*5 
go *6 
28*7 
28*8 



4* SEP 08j 
05 00SA9 
05 Q05AA 
05 005A8 
OB 005AC 
OR 005AD 
05 005AE 
05 005AF 
05 COSBq 
05 OOSBi 



05 00582 

05 00583 



05 oose* 

05 00585 
05 Q05B6 
05 005B7 



05 C0588 
05 005B9 
05 0058A 



05 005BB 
05 005BC 
05 005BC 
05 005BD 
05 005BE 
05 005BF 
05 005Cq 



» 75 

6»30n5CF 
31B0OCBE 02 
692005C1 
3&B n0B9 02 
3ci50O087 02 
6*7009EF 
6»8on5BB 

2UA O n00l A 
6>0*05D2 



6*7onB95 
6»0005BB 



325000B9 02 

6*700A56 
6 A 7ooD82 
6^000588 



3*50O0B9 02 
6A70000B 
ouoonooo A 



3*B000B9 02 

35B0O2C3 02 
31B0O0BE 02 
6«3oo5Cl 
6*7ooC7F 
6»0005A8 



FNDTYP 



« 
FND30 



« 

FN032 



* 

FND35 



* TEST 

* 

FNQ*0 



BE 

CW#Rl 

BG 

STW#Ri 

L w * p l 

BALjLNK 

BCSjS 
Al#P3 

EXU 



FND70 
LASTSET 

FN050 

FIRSTSET 

FRSTCLMM 

FINDMATCH 
FND*0 
1 
FN0TBLi#X4 



168 



'FD' USED! DpLETE REC8RD 



BAL#LNK DELETERECBRD 

B FND40 



YES . F.RR8R 

WAS INPUT SEQ # > LAST SEQ # 

YES • FINISH UP 

N8 » SAVE NEW SEW # 

CHECK IF REC CONTAINS STRING 

STARTING AT SPECIFIED C8L» * 

YES • 1NCR MATCH C8UNT 
G8 PERF8RM APPR8 ACTION 



DELETE RECORD 

GO ON T8 NEXT RECORD 



'FT' USED? TYPE SEQ *j AND RFCORD 



LW#P1 

BALjLNK 

BAL/LNK 

B 



FIRSTSET 
SETE8D 
TYPECARD 
FND40 



♦FS» USED! TYPE SEQ * 



LW#P1 

BAL#LNK 

GEN* 



FIRSTSET 
TYPESEQ 

O'O'Q'G 



IF LAST RFC8RD HITl IF YES, 



L*#Ri 

D81 

STW # Rt 

CW/R1 

BE 

BAL#LNK 

B 



FIRSTSET 

M8DE12 

INTFLAG1 

LASTSET 

FNP50 
READSEQUEN 

FND20 



GET SEQ * 

TYPEI «DDDD.DDD» 

G8 FINISH UP 

TEST IF LAST SEQ * « SFQ * TO ST«?P 



AT 

N8 - READ NEXT RECORD 
L88P 



HOi 



aou* < 


SEP 08, 


«75 
















2849 










# 












2880 










* SEQt 


* T8 STftP 


AT HIT 8R 


PASSED 


>l FINISH UP 


2851 










# 












2852 


OP 


005C1 


6*040505 




FND50 


fxu 


FNDTBLgjX* 






G8 FINISH UP 


2853 










* 












2854 










# ?FD' 


USED J TYPE i—NNN RECS 


DLTEDf 


2855 










* 












28S6 


05 


005C2 


3*FqO00A 


A 


FN060 


lW,Di 


P3 








2857 


05 


0C5C3 


6*3005CC 






BEZ 


FND65A 






WERE ANY MATCHES F8UND 


2858 


05 


005C4 


3S50O00A 


A 




LW # Pi 


P3 






GET REC8RD C8UNT IN P% 


2859 


05 


005C5 


2«J6ooA31 


02 




LI/P2 


BA(MS66)4 


1 




GET BYTE ADR« 8F PLACE 


2g60 


05 


C05C6 


6A7onBll 






BALjU'K 


BJNT8DEC 






G8 PUT THE NUMBER THER 


2861 


05 


005C7 


6*7onDC4 






BAIjLNK 


TYPEMSQ 








2862 


05 


C05C8 


OU00028C 


02 




DATA 


MSQ6 








2863 


05 


005C9 


E»oonooD 


A 




B 


♦RJLNK 






EXIT 


2«d4 
2865 












USED; TYPE •••N8NE» 


IF 


m 


MATCHES F8UND 


2866 










# 












2867 


05 


005CA 


giAonooo 


A 


FND65 


CI#P3 









WERE ANY MATCHES F8UND 


2868 


05 


005CB 


E*30000D 


A 




BNE 


♦RILNK 






YES . EXIT 


2869 


05 


005CC 


6A700DC4 




FN065A 


BAL^LNK 


type^ss 






N6 - TYPE* '••N8N£? 


2870 


05 


005CD 


0U00O1E6 


02 




DATA 


ERRM6 








2871 


05 


005CE 


E«00OC0D 


A 




B 


•RJLNK 






EXIT 


2872 










* 












2873 










* ERR8RS E8F MTT 










2874 










» 












2875 


05 


OOBCF 


6*7ooDC4 




FND7C 


BALjLNK 


TYPEMSQ 






TYPEJ »-«E8F HIT' 


2876 


05 


OOSDO 


0U00O1D5 


02 




DATA 


ERRM1 








2877 


05 


005D1 


6»0005Cl 






B 


FND5Q 






Q8 FINISH UF 


2878 










# 












2879 










« 












2880 




05 


0050* 




FNDTBL1 


FQU 


$ 








2881 


05 


0O5D2 


6»0005B2 






B 


FND3Q 








2882 


05 


005D3 


6»0005B4 






B 


FND32 








2883 


05 


005D4 


6»0005B8 






B 


FNP35 








2884 










* 












2885 










« 
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HOI 20H4 SEP 08* '75 j7g 

2886 05 U05Db 

P887 05 C0505 6»00nSC2 
2888 OB 005D6 6»0005CA 
?889 OF C0SD7 6*0005CA 



FNQTB12 


£GU 


* 




B 


FND60 




B 


FND65 




B 


FND6S 



HOI 20144 SEP 08* » 75 
2890 
2891 
289? 
2893 

2894 
2895 

2896 

?897 

2898 
2899 

2900 

2901 
2902 

2903 
2904 
29C5 
2906 

2907 
2908 



2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
292? 

C ^? C- «3 

2924 
2925 
2926 



05 OGSDa 
05 005D8 2*200002 A 

OOOQOOOl 
05 005D9 0M0O2CB 02 
0* 005DA 6«00O5DD 



05 0C5DB 



05 
05 



005DB 

005D8 0*l0n?CC 02 

05 C05DC 22200000 A 

(35 005DD 2^300005 A 

05 005D£ F*4600AC 02 

05 005DF 8<f5800AC 02 

05 0O5E0 3*80O0BO 02 
05 005E1 

05 005E1 3^l00PC7 02 

05 005E2 2S300006 A 

05 C05E3 F*B6 cAC 02 

05 005E4 6*3005E9 

05 005E5 2U30OO01 A 

05 005E6 FS4600AC 02 

05 005E7 B«88O0AC 02 

05 005E8 3b8000B0 02 



05 005E9 6A700C61 
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P}INSERT$SUP*SEQ 
Ll*X* 

D8 

CALIM 

B 

ELSE 

B 

FIN 

# 
# 

R| INSERT ECU 

Dei 

CAL1M 
LI/X4 
LI#X1 
LB# X? 

L^/Pl 
l**Tl 

D81 
MTW#l 
Ll#Xi 
LB,Rj 
BEZ 
AIjXI 
LB#X2 
LWiTl 
STWjTl 
# 

* GET SEGt * AT 

# 

INS10 BAL#LNK 



EQU $ 

2 

M8DEi2 

PR8MPT2$FPT 

RtINSFRT+2 

RiINSERT+1 



* 

MBDE«2 

N6PR©MPTgFPT 



*CDTADR#Xi 

♦CDTADR/X2 

DFLTINCR 

MeDEt? 

TA8XFLAG 

6 

*CDTADRiXi 

INS10 

1 

#CDTADR#X1 

•CDTADR#X2 

DFITINCR 



USE X4.2 F8R f IS* 



USE XoiO F8R UNI 
SET PlfSTARTlNG SEQ * 
SET TlilAST JNCR USED 



GET PARAM2 TYPE 

TEST IF PARAM2 PRESENT 



YES « SET TlflNCH FR8M CDT 
SET NEW DEFAULT JNCR 
WHICH T8 ST8P INSERTING 
READNXTRAND8* READ 1ST SEQ * 8« NEXT HIGHEST 



HOI 20*44 S 


SEP 08j 


♦75 








2927 


05 


005EA 


6*8005EC 




BCSj* 


**2 


2928 


05 


005EB 


6^7onC7F 




BAL#LNK 


READSEQUEN 


2929 


05 


005EC 


329onco9 


A 


L*,T2 


Ri 


2930 










* 




2931 










* TYPE NfXT SEQ» 


* AND READ I 


2932 










• 




2933 


05 


005ED 


6*040bEE 




INS20 B 


i+i#X4 


2934 


05 


005EE 


6 A 7onDDB 




bal#lnk 


TYPESEG 


2935 


05 


005EF 


^uosocoo 


A 


GEN4 


BL#E9MjCiO 


2936 




ooooocol 




D8 


M6DEi2 


2937 


05 


005FQ 


6?04O6lO 




FXU 


INS50jX4 


2938 










FIN 




2939 


05 


005F1 


6*7onCB2 




BAL#LMK 


READTELETYPE 


294q 


05 


005F2 


21^00001 


A 


CI#»l 


1 


2941 


05 


005F3 


6»30D60F 




BE 


JNS4Q 


2942 


05 


U05F<* 


3*400008 


A 


IW*X2 


Rl 


2943 


05 


C05F5 


204FFFFF 


A 


Al#X2 


•1 


2944 


05 


005F6 


7ciF8nc24 


02 


LB#Dl 


CARDIMGjX2 


2945 


05 


00SF7 


2«J3onoo4 


A 


LI#X X 


GNTBLiSZ 


2946 










« 




2947 


05 


C05F8 


7XF^ngCD 




CB#Di 


GNTBLl#Xt 


2948 


05 


005F9 


6*3005FC 




pij. 


$+3 


2949 


05 


005FA 


643005F8 




BCR'Xl 


$*2 


2950 


05 


005FB 


6»0005FF 




B 


$♦4 


2951 


05 


005FC 


2<iFon040 


A 


LI#01 


t i 


2952 


05 


OOSFD 


7t>F80C24 


02 


STBjDI 


CARDIMG#X2 


2953 


05 


C05FE 


33F ncoB 


A 


MTW#-t 


Rl 


2954 


05 


00 5FF 


3^B noE7 


02 


STWjRi 


RECSIZE 


2955 


05 


00*00 


2lB 0C8C 


A 


CI#Rl 


maxclmn 


2956 


05 


00*01 


**20n6Q4 




BLE 


INS35 


2957 


05 


00*02 


6^7ooOC4 




BALiLNK 


TYPEMsG 


2958 


05 


C0<&03 


0U0OO1DC 


02 


DATA 


ERRM3 


2959 










« 




2960 










« WRITE INPUT TMA<3E# INCREMEN 


2961 










# 




2962 


05 


00604 


6 A 70oA5<& 




INS35 BALiLMK 


SETE9D 


2963 


05 


00*05 


6A70OE1F 




BAt#LNK 


WRITERAND8* 



1/2 

WAS NEXT HIGHEST READ 

N8 - S8 READ NEXT HIGHEST 

SET TgnSEQ * AT WHICH T8 STBP INSERT 



TYPE tDDDDiDDDt As REQD 



READ INSERT 



GET BYTE CNTu JNTB TNDEX REG. 
MAKE X2 A BINARY C&gNT 
GET LAST BYTE INPUT 
GET THE C8UNT 8F DIFFERENT TYPE 
8F LINE TERMINATORS. 
FIND A CARRAGE RETURN 



BLANK BUT C/R 

IF CR DECREMENT CHAR. C8UNT. 

NB • TYPE1 f»8VfcRFL8W f 
, *j AND CHECK AGAINST ^ T8 S 
WRITE CARD IMAGE 



HOI 



201 44 ! 


SEP C8j 


'75 












2964 


OB 


G0606 


3U50OG08 


A 




AfciPl 


Tl 


INCR SEQ § 


5965 


OB 


006Q7 


31500009 


A 




CW^Pi 


T2 




2966 


05 


00608 


6*ionsED 






BL 


INS20 


IS NEW SEQ * > SEQ U T8 ST9P AT 


2967 


OS 


00609 


3X5onoBP" 


02 




CW#Pl 


MAXSEO 


IS SEQ. N9, T9© »IQ 


2968 


OS 


006CA 


6»200600 






BLE 


INS38 


N©t 


2969 


OS 


00608 


6*7onDC4 






BAULNK 


TYPEMSS 


YESt 


2970 


OB 


Q060C 


0U00O21D 


02 




DATA 


ERPM20 




2971 


05 


0060D 


6*7onDC4 




INS38 


BALjLNK 


TYPEMSC* 


RING BELl TWICE 


2972 


05 


C060E 


0U00O613 






DATA 


INSliSG 




2973 




05 


0060* 




INS4C 


EOU 


* 




2974 


05 


0060F 


E«00OG0D 


A 




B 


♦RllNK 


RETURN 


2975 




coooocoi 






D8 


M©DEf2 




2976 


05 


00610 


2SF0OC09 


A 


INS5C 


Ll#Ol 


9 




2977 


05 


00611 


08000000 


A 




N8P 





X4 IS NEVER 8NE 


2978 


05 


00612 


22F"00001 


A 




LI#Oi 


1 


©FFSET F©R PR©MPT ©NIY 


2979 










* 








2980 












FIN 






2981 










* 








2982 


05 


00613 


0*070708 


A 


INSMSQ 


TEXTC 


fQQHi 


X»07'*X»07f4.E6M 



1/3 



Hoi 



20 
2983 

2984 
2983 
2986 

2987 
2988 
2989 
P990 
2991 
299? 
2993 
2994 

2995 
2996 
2997 
2998 
2999 
30dO 
3001 
3002 
3003 
300* 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 



U4 SEP C8# '75 



05 QQ6i* 
05 00614 22200000 A 
03 00615 6*000617 

05 00616 
OS 00^16 2^200001 A 



03 00617 
05 00618 
05 00619 
05 0C61A 
05 C061B 
05 0061C 
05 0061D 
05 0061E 
05 0061F 
03 00620 
05 00621 
05 00622 
05 00623 
05 00624 
05 QC623 
05 00626 
03 00627 
03 00628 
05 00629 
05 0062A 



22300000 A 
3*>3oni9E 02 
22300005 A 
F24600AC 02 
B2880GAC 02 
20400001 A 
B29800AC 02 

22300007 A 
F246O0AC 02 
B25800AC 02 
2U400C01 A 
B26g00AC 02 
32A0O0B0 02 

22300008 A 
F2B600AC 02 
6*300#>2B 
20300001 A 
F24600AC 02 
B2AgO0AC 02 
35A0OCB0 02 
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RjfieVEHDELETE 
Ll*X4 

B 
# 
# 
RjMeVEtKEEP 

LliX4 
# 

• GET »FR8h» 

♦ INCREMENT I 
* 



EGU $ 



RtM©VF$KEEP*i 

EGU $ 
1 

SFQt * PAIR IN T1«2j 
N P3 



^VElO 



STWjX 

LI, XI 
LB#X2 
LW#Tl 
AI#X2 

LWiT2 

LI/X1 

LB#X2 

LW#P| 

AI#X2 

L*,P2 

LW#P3 

LI#X1 

LB#Ri 

BEZ 

Al#Xi 

L8jX2 

LWiP3 

STWjP 



1 MVDSRECJCNT 
5 

*CDTADR#X1 
#CDTADR#X2 

1 
*CDTADRiX2 

7 

•CDTAqRiXI 

#CDTA0RjX2 

1 

♦COTAORiX? 

dfltincr 

8 

♦CDTADR#X1. 
MVE20 
1 

*CDTADR#Xt 
#CDTADR#X2 
3 DFLTINCR 



USE X4i0 T© SIGNAL MD 

USE X4H T© SIGNAL MK 
»T©« SEQ * PAIR IN Pl«2, AND 

ZERB 6UT MBVED RECi CBUNT f 

GET ADDR Bf 1ST 'FRBMt SfcQ * IN COT 
SET PlfFIRST fFR»Mi SEQ * 
P2§LAST 'FRBMt SEQ * 

GET ADDR *F 1ST f T6» SEQ # IN CD? 
SET PliFIRST »T6 f SEQ * 
P2iLAST !T0i SEQ * 

SET P3§LAST INCR USED 

GET PARAM3 TYPE 

TEST IF PARAM3 PRESENT 

YES • SET P3HNC* FRBM COT 

SET NEW DEFAULT INCR 



HOI 



20*44 J 


SEP 08j 


'75 










3020 










# 






3021 










* CHECK F©R 8VFRLAPPING SEQ #«S 


302? 










# 






3023 


05 


00628 


38E0O008 


A 


MVE20 


LW/Dc 


T1 


3024 


05 


0062C 


3*F OC09 


A 




LWjDl 


T2 


3025 


CS 


0062D 


l s 50OC0E 


A 




CLMjP t 


Do 


3026 


05 


0062E 


6890066E 






Bit 


MVE5Q 


3027 


05 


0062F 


!*600C0E 


A 




CIMiPP 


DO 


3028 


05 


00630 


6*9oo66E 






BIL 


MVE50 


3029 


05 


00631 


3«EOOC05 


A 




LW#Do 


PI 


3Q30 


05 


00632 


3«Foo006 


A 




LW,Di 


P2 


3031 


05 


00633 


1*80000E 


A 




CLMjTl 


DO 


3032 


05 


00634 


6*90066E 






BIL 


MVE50 


3033 


05 


00635 


1990000E 


A 




CLM*Tg 


DO 


3034 


05 


00636 


6»90066E 






BIL 


MVE50 


3035 


05 


00637 


4*800005 


A 




XW,Tl 


Pi 


3036 


05 


00638 


6A700C61 






BALjLNK 


READNXTRAND8M 


3037 


05 


00639 


^6800005 


A 




XWjTI 


Pi 


3038 


05 


0063A 


3iB oE28 






CW,Rj 


L(E©F) M 


3039 


05 


0063B 


6»300683 






BE 


MVE58 


3040 


05 


0063C 


31B00009 


A 




CW#Rl 


T? 


3041 


05 


0063C 


6*200683 






BG 


MVE58 


304P 


05 


0063E 


6 A 7onB39 






BALjLNK 


DELETE 


3043 


05 


0063F 


6*800641 






BCSj 8 


**2 


3044 


05 


00640 


6A700C7F 






BALjLNK 


readsequen 


3045 


05 


00641 


3^100008 


A 




LWjX3 


Rl 


3046 


05 


Q0642 


46500008 


A 




XWjPl 


Tl 


3047 


05 


00643 


6*700C61 






BALjLNK 


readnxtrandsm 


3048 


05 


00644 


38500008 


A 




L^jPl 


Tl 


30*9 


05 


00645 


3*50OC0A 


A 




SWjPi 


P3 


3050 , 










* 






3051 










* READ EACH »FR©M« REC8RD AND W 


3052 










# 






3053 


05 


00646 


31BonE28 




MVE30 


C***l 


L<E©F> 


3054 


05 


00647 


6»30067l 






BE 


MVE53 


3055 


05 


00648 


3190O00B 


A 




CW # Tg 


Rl 


3056 


05 


00649 


6*200659 






BLE 


MVE35 



175 



AND SET UP M©VE 

PUT tFR6M» SEQ #'S IN DW 

MAKE SURE !T9f AND 1FR0M1 RANGES 
ARE MUTUALLY EXCLUSIVE 



EXCHANGE FIRST »*R©M» AND !T© f 
CHECK »FR©M» RaN<*E 

RESTORE 
IF REC6RD READ WAS AN e©Fj 

©R SEQUENCE GREATER THAN SECOND 

tFROMtj NOTHING T0 MOVE 

DELETE »T&! RECORDS 

WAS LAST >T© f SE« * HIT *Y DELETt 

YES » READ NEXT KeCBRD 

SET X31SEQ * AT WHICH T© ST©P M8VE 

READ 1ST «FR©M» *EC ©R NEXT HIGHEST 
SET PliNEW !T6t SEQ # • iNCR 



ITE UNDER »T©» SEQ * 

WAS AN E©F READ 

YES • G8 TYPE ER*»R MESSAGE 

WAS »FR8Mt SEQ >i LAST *FR©M» %£Q 

YES • G© FINISH UP 



HOI 20? 
3057 
3058 
3059 
3060 
3061 
306? 
3063 

306^ 
3065 
3066 
3067 
3068 
3069 
3070 

30?1 

307? 

3073 
3074 
3075 
3076 
3077 

307g 
30^9 
3080 
3081 
3082 
30»3 
3084 
3085 
3086 
3087 
3088 
3089 

3090 

3091 

30^2 

3093 



44 SEP 08, '75 

05 0064A 3U50000A A 



05 Q0648 
05 OO64C 
05 00640 
05 0064E 

05 0064*" 
05 00650 
05 C0651 



31500001 A 
6*100674 
3t>B 00 oBC 02 
6*04064F 

6A700B95 
3310019E 02 
6*700E1F 



00000001 
05 00 6 52 3^8 n?C3 02 
05 00*53 3 b 50O2C4 02 



05 00654 
05 00655 
05 00656 
05 00657 

05 00658 



05 00659 
05 0065A 
05 00658 
05 0065C 
05 00650 
05 0065E 
05 0065F 
05 00660 



05 00661 

05 00662 
05 00663 
05 00664 

05 00*65 
05 00666 



465onoBC 02 
6A7ooC6D 
46500QBC 02 
6A700C7F 

6^000646 



6^100661 
3U50OC0A A 
31500001 A 
6*100674 
6*04065E 
6 A 700B95 
3310019E 02 
6*70f)ElF 



2«60OAA7 02 
6A700B97 
OUOOOCOO A 
2UBQOO0A A 
7t?B o2A7 02 
6V00DC4 



# 

* LAST 

* 

MVE35 



AW*P1 
CW*Fi 

BQE 

STWjRi 

B 

BALjLNK 
mTWjI 
BALjLNK 

De 

STWjRi 

STWjPi 

FIN 

XWjPi 

BALjLNK 

XNjPi 

BALjLNK 

B 



P3 

X3 

MVE56 
LASTFR8M 

*+l'X* 

OElETERECBRD 

mvojrecjcnt 

WRITERAN08M 
M6DE-2 
INTFLAGl 
INTFLAG2 

LASTFR8M 

READRAND8M 

LASTFR8M 

readsequen 



MVE30 
'FR8M« reQ * HIT 8R PASSED 



Bl 
AWjPi 

CW#Pl 

B6£ 

B 

BALjLNK 

MTWjI 

BALiLNK 



MVE40 
P3 
X3 

MVE56 
**1#X4 

OELETEREC0RD 
MVDJRECJCNT 
WRITERAND8M 



1?6 

INCR »T8» SEQ * 

IS NEW fT©! SEQ * > SEQ * T8 ST8P AT 

YES • £38 TYPE ERK8R MESSAGE 

DELETE tFR8Mf REG8RD AS «EQD 

INCERMENT RECt CWUT 

WRITE REC8R0 WITH NEW fT9» SEQ # 



MUST REREAD LAST ?FR8M| REC8RD T* 
GET DCB BACK IN SEQ 

REST8RE Pi AND LA9TFR8M 
READ NEXT »FR8M» RECORD 

L88P 
J FINISH UP 

MAS LAST »fRBM* $FQ * PASSED 

N8j WAS HIT • INCR »T8f SEQ 

IS NEW iT&f SEQ * » SEQ * T9 ST8P AT 

YES • G8 type eR^QR message 
DELETE »FR9M» REG AS REQP 

INCERMENT REC8RD CSUNTi 
WRITE REC WITH NfcW »T8» SEQ * 



# TYPE 8UT LAST I T8 » SEQ # AND EXIT 

# 

MVE40 



LljPg 

BALjLNK 

GEN4 

AljRl 

STBjRi 

BALjLNK 



BA(MVEMSGi)^ii 

M8VESEQ 

0#0*OjG 

10 

MVEMSGi 

TYPEMSG 



BUILD MSB! !»*D0NE AT DD»D» * NL 

FR8M LAST »T0» SEQ * 

ADJ CNT 8F TEXTOSTRJNG 
TYPE MSG 



HOl 



20144 S 


SEP 08j 


»75 












1094 


(j5 


00667 


0U00OPA7 


02 






DATA 


MVEMSG1 


3095 


OS 


00668 


22600A4D 


02 






LI#P2 


BA(MS87U1 


3096 


05 


00669 


3250O19E 


02 






LW,Pl 


MVDJRECJCNT 


3097 


05 


0C66A 


6A7ooBll 








BAL*LNK 


BINT8DEC 


3098 


05 


0066B 


6 A 7ooDC4 








BAULNK 


TYPEMSG 


3099 


05 


0066C 


0U0OO293 


02 






DATA 


MSQ7 


3100 


05 


0066D 


E«0OO00D 


A 






B 


#RILNK 


3101 










* 








3102 










« 


ERR6RJ SEO *'S 


8VERLAP 


3103 










« 








3104 


05 


0066E 


6A700DC4 




f*V£5C 


SALjLNK 


TVPEMSG 


3105 


05 


0066F 


OOOOOlDF 


02 






DATA 


ERRM4 


3106 


05 


00670 


E»00000D 


A 






B 


*RjLNK 


3107 










♦ 








3108 










* 


ERRSPI E6F HTT 




3109 










# 








3110 


05 


00671 


6A70ODC4 




MVE53 


BAULNK 


TYPEMSG 


3111 


05 


00672 


0U00O1D5 


02 






DATA 


ERR«l 


3112 


05 


00673 


6*000661 








B 


MVE40 


3113 










# 








3114 










* 


ERRSR 


J »T0» SEQ * HIT NEXT 


3115 










« 








3116 


05 


00674 


3*50OO0A 


A 


MVE56 


SW/Pl 


P3 


3117 


05 


00675 


2*60nACl 


02 






Ll#Pj? 


BA<MVEMSG2)+ 


3118 


05 


00676 


6A700B97 








BAt#LNK 


M6VESEQ 


3119 


05 


00677 


4U4DO000 


A 






GEN4 


BL#lPi0#0 


3120 


05 


00678 


3U60O00B 


A 






AW#P? 


Rl 


3121 


05 


00679 


2UB nooC 


A 






Al#Ri 


1? 


3122 


05 


0C67A 


3280000B 


A 






L**Tl 


Rl 


3123 


05 


00678 


3H5000BC 


02 






LW#Pl 


LASTFR8M 


3124 


05 


0067C 


6A70OB97 








BALjLNK 


MeVESEQ 


3125 


05 


0067D 


5^000000 


A 






QEN4 


RP#0#040 


3126 


05 


0067E 


3U8oftOOB 


A 






AVOTi 


Rl 


3127 


05 


0067F 


7b8002AD 


02 






STBiTi 


MVEMSG2 


3128 


05 


00680 


6A7ooOC4 








BAL#LNK 


TYPEMSG 


3129 


05 


00681 


000002AD 


02 






DATA 


MVEMSG2 


3130 


05 


00682 


E^OOOOOD 


A 






B 


♦RJLNK 



177 



GET THE NUMBER OF RECtS M8VED 
C8NVERT ITi STUFF IT AWAY 
AND PRINT IT 8UT» 

EXIT 



TYPE* f.RNG eVERtApt 
EXIT 



TYPEI t»«E8F HIT* 
G8 EXIT 



ADJ PI T0 LAST tTB» SEQ * 

BUILD MSGf t««CUT8FF AT PDD.D Ci 
WITH LAST »TS» SpQ * 

INCR MSG BYTE ADPR 

CALC AND SAVE MSW LENGTH 

BUILDl iOD»DO)i * NL FR8M LAST 
»FR8M« SEQ # 

ADJ CNT ©F TEXTOSTRING 

TYPE? i —CUTOFF AT ODD.D (OOtDD)f * 

NL 
EXIT 



Hoi 



80U4 SEP 08* 


»75 








3131 




« 






3132 OS 00683 


6^70f)DC4 


MVE58 


BALjLNK 


TYFEMSG 


3133 0? 0068* 


ouoon?oi 02 




DATA 


ERRM16 


3134 OF 00&85 


E«00O00D A 




B 


#RjlNK 



178 



HOI 



20 
3135 
3136 
3137 
3138 

3139 
3140 

3141 
314? 
3143 
3144 
3145 
3146 

3147 
3148 
3149 
31 50 
3151 
315? 
3153 
3154 

3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
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05 

05 00686 
05 00687 

05 00688 
05 00689 
05 QQ68A 
05 0068B 
05 Q068C 
05 0068D 
05 0068E 
05 0068F 

05 00690 
05 00691 
05 00692 



OR 00693 
05 00694 
05 00695 



05 00696 
05 00697 
05 00698 



00686 

22300005 A 
F*4600AC 02 
B85800AC 02 
283D0007 A 
FS4600AC 02 

88880CAC 02 
6 A 700C60 
6*800693 
38500008 A 
6A700E0E 
65*800696 
6A7Q0B95 
E^OOOOOD A 



6*70nDC4 
0U00O22E 02 
E*00O00D A 



6A70ODC4 
00000232 02 
E»00000D A 



PAGE 

♦ REC8RD C6MMAND? RENUMBER * 
# 



i7S 



RSRENUMBER 

Ll#Xl 
LB,X2 
LW/Pi 
Ll/Xi 
LB#Xp 

LW#Tl 

BAL#LNK 

BCSig 

Llm#Pl 

BAULNK 

BCS#8 

BALjLNK 

B 
« 

# ERR8RI 9L0 RFC6RD DBESNiT EXIST 
# 
RNMiO 



ECU * 

e 

•CDTADR#X1 
*CDTADR#X? 

7 

#CDTADR#Xi 

*CDTADR#X2 
READRANOdM 

RNMIO 

Ti 

WRITENEWRAND8M 

RNM13 

DELETEREC8RD 

♦RJINK 



BAL#LNK 

DATA 

B 



TYPEMSG 
ERRP1 

♦rslnk 



* ERR8RS NEW RfCQRD ALREADY EXISTS 
RNM13 



BALiLNK 

DATA 

B 



TYPEMSG 

ERRP2 

♦RJLNK 



SET PiiftlD SEQ * 



SET TiiNEW SEQ * 

READ 8LD RECSRD 

DID IT EXIST 

YES • SET Pi«NEW SEQ * 

WRITE REC8RD UNDfcR NEW SEQ 
DID THIS SEQ ALREADY EXIST 
N8 • DELETE 8LD *EC8RD 
EXIT 



TYPEI «»PllN8 SUCH RECt 
EXIT 

TYPEI »«P2tREc EXISTS! 
EXIT 



HOI 



20 
3167 
3168 
3169 
3170 
3171 
317? 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
318? 

3183 
3184 

3185 
3186 
3187 
3188 
3189 
3190 
3l9l 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 

3201 
3202 

3203 
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1*0 



05 00*9* 
05 00699 22300001 A 
05 C069A 6*00O69C 



0C69 b 

2S3FFFFF A 
3S300167 02 
3&3onoE9 02 
2^300005 A 

FS460CAC 02 
B85800AC 02 
2S30OC06 A 
6 A 7ooA34 
6A700C61 
3&8QOG05 A 
3XBQ0F28 
6^30O6Co 
36B 0oc B9 02 
6*000688 



2*800000 A 
3$8oncE9 02 
3&800167 02 
6*000004 





05 


05 


0069B 


05 


0069C 


05 


0069D 


05 


0069E 


05 


0069F 


05 


006AQ 


05 


006A1 


05 


006Ag 


05 


006a3 


05 


OO6A4 


05 


006A5 


05 


006A6 


05 


00^A7 


05 


006A8 



OB 006A9 
05 0Q6AA 
05 006AB 
05 006AC 



PAGE 

# RECORD COMMANDS 
#######♦♦♦######## 

« 

r:set*step 

Ll'Xl 

B 
* 
« 
RJSET^STEPtTYPF 

Ll#Xl 
STWjXI 
STWjXi 
Ll#Xi 

L3#X2 

LN#Pl 

Ll#Xi 

BALjLNK 

BALiLNK 

STWiRi 

C**R1 

BE 

STWjRi 

B 



J SET AND STEP (AND TYPE) * 



EQU * 

1 

RtSET$STEP*TYPE+i 



EGU * 

• 1 

STEPFLAG 

SETFLAG 

5 

•CDTADR/X1 

•CDTADR/X? 

6 

PReCESSC8L*PATR 

READNXTRANDQM 

PI 
L(E6F) 
SP120 

FIRSTSET 

F!NISH$STEPiLeBP 



USE STEPFLAG?! F&R »SSt 



USE STEPFtAGfl FQR 1ST? 

TURN 8N »SET AND STEP MODE f FLAGS 

GET STARTING SEQ # FR8M CDT 



PR8CESS C©L # PAHAMS 

PUT FIRST RECt NS. IN pit 



NB j SB USE THE FIRST REC8RD 
NUMBER FOUND THAT IS HlGHgR 
THAN THE INPUT RECORD NO* 



# NULL COMMAND Or 

* 

STP10 LI#T1 
STW#Ti 
STW#Ti 
B 

# 

# 



ERROrI TURN BFF tSET MOpE* AND tSTEP M8qE » FLAGS 
1 TURN BFF MODE FLAqS 



SETFLAG 

STEPFLAG 

MASTERPARSER 



EXIT T0 PARSER 



HOI 



201*4 t 


SEP C8# 


»75 














3204 




05 


006AW 




STEP$ie©P 


ECU $ 


(EXC ENTERS HERE AT ?END 


3205 


05 


006aD 


33F0O0CO 


02 






MTWj*t 


N8CHQFLG 


WAS INPUT A »N©» COMMAND 


3206 


05 


006AE 


6»30O6B3 








BEZ 


SPLIO 


YES • SKIP WKITE 


3207 


05 


006AF 


3«^5onoB9 


02 






LW#Pi 


F1RSTSET 


WRITE CURRENT REL8RD 


3208 


05 


006BQ 


6A700E1F 








BAL#LNK 


WRITERANDGM 




3209 


05 


00651 


3^00019A 


02 






MTWiO 


TTYIMQSZ 


was input a null command 


3210 


05 


006B2 


6*30n6A9 








BEZ 


STP10 


YES • 66 EXIT 


3211 










* 










3212 










# 


READ 


next input record and type 


AS REQUIRED 


3213 










« 










3214 


05 


OO6B3 


6 A 70OC7F 




SPliO 


BALjLNK 


READSEQUEN 


READ NEXT RECORD 


3215 


05 


006B4 


31BQ0E28 








CW#R1 


L(E8F) 


WAS IT AN EOF 


3216 


05 


006B5 


6«30ft6Co 








BE 


SPL20 


YES * ERROR 


3217 


05 


0C6B6 


3S>Booo89 


02 






STWjRi 


FIRSTSET 


NO • SAVE NEW SEW * 


3218 


05 


006B7 


3^5000B9 


02 






Ll*#Pt 


FIRSTSET 




3219 










# 










3220 










« 










3221 










« 










3222 




05 


QQ6B* 




FINISH$STFP*L«8P 


EOU * 


MJIM ENTERS HERE TO FfN 


3223 


05 


006B8 


6*7onA56 








BAL*LNK 


SETEOD 


SET E8D MARKER 


3224 


05 


006B9 


3^000167 


02 






MTW#o 


STEPFLA6 




3225 


05 


006BA 


6»2006BD 








BGZ 


SPL15 


WAS tSTf CMND USED 


3226 


05 


006BB 


6A700D82 








BALjLNK 


TYPECARD 


YES • TYPE CARD IMAGE 


3227 


05 


006BC 


6*000004 








B 


masterparser 


EXIT TO PARSER 


3228 










# 










3229 










« 


fSS* 


COMMAND USED J UUST TYP£ SEQ 


* 


3230 










# 










3231 


05 


006BD 


6A7C0DDB 




SPL15 


BALjLNK 


typeseg 


TYPE! iDOODtODOl' 


3232 


05 


006BE 


0*000000 


A 






6EN4 


E6M#o*0*0 




3233 


05 


O06BF 


6*000004 








B 


masterparser 


EXIT TO PARSER 


3234 










# 










3235 










* 


ERROF 


M EOF NTT 






3236 










# 










3237 


05 


0O6C0 


6 A 700DC4 




SPL20 


BAL/LNK 


typemsg 


TYPE! »*»E3F HIT* 


3238 


05 


006C1 


0U00O1D5 


02 






DATA 


ERRMl 




3239 


05 


006C2 


6«0006A9 








B 


STP10 


GO EXIT 



1*1 



HOI 201 
32*0 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 

3253 
3254 

3255 
3256 
3257 
3258 
3259 

32*0 
3261 

3262 
32*3 
3264 

3265 
3266 
3267 

3^68 
3269 

3270 
327i 

3272 
3273 
3274 
3275 
3276 
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05 006C3 

05 Q06C3 

05 006C3 2*200001 A 
05 006C<* 6»0006C6 



05 Q06C& 

05 006C5 22200000 A 
05 006C6 2^300001 A 

05 006C7 3S3000E9 02 



05 006C8 
05 006C9 
05 OO^CA 
05 006CB 
05 006CC 
05 OO^CD 
05 006CE 
05 006CF 
05 0O6D0 



28C00000 A 
2^300005 A 
F24600*C 02 
B85800AC 02 
20400001 A 
8<868noAC 02 
3$600CBE 02 
20300001 A 
6*70ftA34 



00000001 

05 00601 32300087 02 



05 006D2 
05 006D3 
05 OO6D4 
05 006D5 
05 006D6 
05 00607 
05 00*08 
05 006D9 



6930O6D9 
323000BB 02 
2130008C A 
6S1006D9 
21200001 A 
6^300609 
3310O2C7 02 



PAGE 



SEQt NUMBERS) * 



• REC6RD C8MMANDSI TYPE (SUPPRESSING 

# 

RjTYPEtC&MPRESSFD EQU * 

RJTYPE EQU $ 
LI#X4 1 
B R:TYPE$SUP$SEQ+1 



USE X4.1 FOR fTY» 



RjTYPE$SUP*SEQ 

Ll^Xl 
STW#X1 



TYP5 



LUH? 

Ll#Xi 

lB,X 2 

LW#Pi 

Al#Xg 

LW/Pg 

STW#Pg 

AI#X1 

BALjLNK 

D6 

LW,Xl 

BNE* 

LW#Xl 

CI#Xi 

BL 

Cl#X4 

BE 

MTWm 

RES 



EQU * 


1 
SETFLAG 



*COTADR#Xi 
♦COTADRjX? 

1 
*CDTADR#X? 

LASTSET 

1 

PR0CESSC8L*PAIR 

M6DE*2 

FRSTCLMN 

TYP5 

LASTCLMN 

MAXCIMN 

TYP5 

1 

TYP5 

TABXFLAG 



USE X*.0 FOR tTS f 

SET THE SETFUG T8 8NE 

THE RANGE FR0M TY IS USED F8R 

AN SE COMMAND. 

START COUNT OF RECORDS eUTPUTt 

GET ADDR OF FIRST SEQ * IN CDT 
SET PiiFIRST SEQ * 
P2tlAST SEQ * 

SAVE ENDING SEQ * 
SET UP COL« NUMBERS 



MUST EXPAND TABS/ IF 
COlt NO. SPECIFIER* OR 

»TY» AND »TC» 



HOI 20 
3377 
3278 
3279 

3280 
3281 
3282 
3283 
3284 
32g5 

3286 
3287 

3288 
3289 
3290 
3291 
3292 

3293 

3294 

3295 
3296 

3297 
3298 
3299 

3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 

3308 
3309 

3310 
3311 
3312 
3313 
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05 006D9 
05 006DA 
05 006DB 



05 0060C 
05 006DD 
05 006DE 
05 006DF 
05 0O6E0 
05 C06E1 
05 006E2 
05 006E3 
05 006E4 
05 006E5 
05 006E6 

05 006E7 
05 006E8 



05 006E9 
05 006EA 
05 006E8 

05 006EC 
05 006ED 

05 Q06EE 
05 006EF 
05 006F0 
05 006F1 
05 006F2 
05 QO6F3 



6*7ooC61 
3$>B oi69 02 
3&B000B9 02 



31B0OE28 
633006F4 

3160O00B A 

6*2006E9 

3250O00B A 

6*04o6E2 

225FFFFF A 

6^7006FE 

6A700A56 

6^7onD82 
20C00001 A 
6^7Q0C7F 
6*0006DC 



6S1006F1 
3250000B A 

6*0406EC 
285FFFFF A 
6*7on6FE 
6 A 70OA56 
6A70OD82 
2UC00001 A 
2UC0OOOO A 
6*2on6F9 
6»00072C 



FIN 

BALjLNK 
STWjRi 
STWiRi 



183 



READNXTRAND6M 
SVlSTSET 
FIRSTSET 



READ FIRST SEQ * 9R NEXT HIGHEST 

SET UP FIRST RECORD NO. 

AS IF A SET C8MMAND WERE QIVIN, 



* 
« 

TYPlO 



READ AND TVPF UNTIL LAST SEQ * READ BR PASSED 



CW#Ri 

BE 

CWjP2 

BLE 

LW#Pi 

B 

Ll#Pl 

BALjLNK 

BALjLNK 

BALjLNK 

Al#R2 

BALjLNK 



LfE&F) 

TYP20 

Rl 

TYP15 

Rl 

* + l*X4 

»1 

TYP^O 

SETE8D 

TYPECARD 

1 

READSEQUEN 

TYPlO 



WAS IT AN EOF 

YES m G& TYPE ER^SR MESSAGE 

WAS INPUT SEQ * >« LAST SEQ # 

YES • FINISH UP 

SET T8 TYPE SEQ * AS REQD 



SET E6D MARKER 

TYPE CARD IMAGE WTTH INPUT SEQ # 



READ NEXT RECORD 
L66P 



LAST SFQ # HTT 9R PASSED! FINISH UP 



TYP15 



TYP17 



BL 

LWjPj 

B 

LliPl 

BALjLNK 

BALjLNK 

BALjLNK 

AJjR2 

AIjR2 

BLEZ 



TYP17 
Rl 

$♦1**4 
• 1 

TYP40 

SETEQD 

TYPECARD 

1 



TYP25 

TYP9Q 



WAS LAST SEQ PASSED 

NOj WAS HIT • PREPARE T© TYPE CA*D 

SET TO TYPE SEQ * AS REQP 



SET EBD MARKER 
TYPE CARD IMAGE 



CHECK OUTPUT COUNT 



ERR8RJ EOF HIT 



woi 



2014* I 


SEP 08* 


♦75 










3314 


05 


006F4 


6 A 7ooDC4 




TYP20 


BAL#LNK 


TYPEMSG 


3315 


05 


CO^FS 


0U00O1D5 


02 




DATA 


ERPMi 


3316 


05 


006^6 


2UCofiOOO 


A 




Al#Rp 





3317 


05 


006P7 


6»20O6FB 






BLEZ 


TYP25A 


3318 


05 


006^8 


6*00O72C 






B 


TYP9Q 


3319 










# 






3320 


Or 


006^9 


6 A 700DC4 




TVP25 


BAL4LNK 


TYPEMS6 


3321 


05 


006FA 


0U00O1E6 


02 




DATA 


ERRM6 


332? 


05 


00$FB 


2**00000 


A 


TYP25A 


Ll/Tl 





3323 


05 


oo*fc 


3^8oooE9 


02 




STW#Ti 


SETFLAG 


3324 


05 


C06F0 


6«00072C 






B 


TYP9Q 


3325 










♦ 






3326 










« 






3327 


05 


006FE 


3^300087 


02 


TYP40 


L*sX% 


FRSTCLhN 


3328 


05 


006FF 


6*30070A 






BEZ 


TYP50 


3329 


05 


00?00 


2**00000 


A 




LI,Xg 





3330 


05 


00701 


7*060024 


02 


TVP42 


LB,RO 


CARDIMG # X1 


3331 


05 


00702 


7&080024 


02 




STB*Ro 


CARDImG#X? 


3332 


05 


00*03 


2U*00001 


A 




AUX? 


1 


3333 


05 


00*04 


2P30O0Q1 


A 




Al#Xi 


1 


3334 


05 


00705 


3i3onoBB 


02 




cw#xi 


LASTCLMN 


3335 


05 


00*06 


6*100708 






B6E 


TYP45 


3336 


05 


0C707 


6*000701 






B 


TYP42 


3337 


05 


00708 


3^400003 


A 


TYP45 


STW#Xg 


Xl 


3338 


05 


00709 


6*00070B 






B 


$♦2 


3339 


05 


0070A 


3*3000BB 


02 


TYP50 


LW#X1 


LASTCLMN 


334c 


05 


0070B 


3&30O00E 


A 




STWjXI 


DO 


3341 


05 


0070C 


2130O08C 


A 




Cl/Xl 


MAXCLMN 


334p 


05 


0070D 


6*100713 






BGE 


TYP60 


3343 


05 


007cE 


22*00040 


A 




Ll#Xg 


t * 


3344 


05 


0070F 


7*460024 


02 


TYP55 


STBjXg 


CARDIM6,X1 


3345 


05 


00*10 


2V30O001 


A 




Al#Xl 


1 


3346 


05 


00711 


2130O08B 


A 




CI#X1 


MAXCLMN-1 


3347 


05 


00712 


6**20070F 






BLE 


TYP55 


3348 










# 






3349 


05 


00713 


28300001 


A 


TYP60 


LI#Xi 


1 


3350 


05 


00714 


F24600AC 


02 




LB#X2 


*CDTA0R#X1 



1*4 



TYPEj i.*E8F HIT» 

WERE ANY RECORDS G8TTEN 
N8j RESET SET FLAG 



TYPE I '••N&N£f 

TURN 8FF SET FLAW IF I.N9NE! 



ADJUST THE IMAGE FOR CbLUMN 88UNUS 

6R C8MPRESSI8N, 

M8VE (FlRSTCLMNilASTCLMN-D, D8WN T8 

ZEROt 

INCREMENT DESTt C8Lt # 
INCREMENT T8 NEXT BYTE. 
CHECK IF D8NE. 
YES 



SET FINISH C8ULUMN F8R NEXT R8UTJNE 
IF LESS THAN FULL IMAGE DESIRED* 
SAVE TERMINAL P8SITI8N F8R C8MPRLSS 



BLANK 8UT REGI8N 
(LASTCLMN,MAXCLMN*l) 



FINALLY CHECK F8* C8MPRESSI8N . 



HOI 



20? 
3351 
3352 
3353 
3354- 
3355 
3356 
3357 
3358 
3359 
336o 
3361 
3362 

3363 

3364 
3365 
3366 
3367 
3368 
3369 
33 7 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
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05 Q0?15 
05 00?16 

OF 00717 



05 
05 

05 

05 

05 
05 

05 
05 

05 
05 

05 
05 

05 



00718 
00719 
0071A 
007lB 

007lC 
0071D 

007lE 
0071F 

00720 
00721 

00722 
00723 

00724 



05 C0725 
05 00726 
05 00727 
05 00728 
05 00729 
05 0072A 
05 0072» 
05 
05 0072C 



'75 

2X40OC16 A 
6*200718 

6»0EOC0O A 



2^300000 A 
2*0000*0 A 
2*400000 A 
7X080024 02 

6*300725 
78F80C24 02 

7S>080024 02 
7&F60024 02 

2U30O001 A 

20*00001 A 

?J^0OO0| A 
6*1007lB 

6*0EO00O A 



2^300001 A 
2U400001 A 
3H0O00E A 
6&IE0OOO A 
7X080024 02 
6*300726 
6*0007lD 
0072^ 

E^OOOOOD A 



CI*X? 
BG 



# 
TYP65 

* 

TYP70 



TYP72 
TVP75 



# 

TYP8G 

TYP82 



TYP90 



Ll#Xl 
LI*«0 

CB,R 

BE 

LB # Pi 

STB,R 

STBjDl 

kltXX 
AI/X2 

BL 
B 



Al#Xi 

Al*X2 
CW,X£ 
BGE 

CB^Ro 
BE 
B 
ECU 



R:TY$CMNDsfcNMR 
TYP7Q 

O.LNK 




t f 

2aRDIMG,Xp 

TYP8Q 

CARDIMSjXp 

CARDlMG,Xp 

CARDlMGjXl 

1 

1 

Do 
TYP72 

Q#LNK 



1 

1 

00 

O'INK 

CARDIMG#X? 

TYP82 

TYR75 

$ 

♦RJLNK 



185 



YESt 8THERWISE# 
EXIT 



IN RANGE <0#USTaMN) COMPRESS 
BLANK STRINGS T8 LENGTH 8NE f 

CHECK F8R BLANK JN CURRENT P8SlTi8N. 
IF N8Tj 

M8VE N8N.BLANK STRING D8WN. 
BLANKING VACATED P8SITI8NS, 

INCREMENT T8 AND 
FR8M BYTE P8JNT£HS# 
IF AT UPPRR LIMIT. 

THEN RETURN 



INCREMENT »T6« POINTER T8 LEAVE THIS 
BLANKt SKIP Te NeN»BLAN*t 



M8VE NEXT STRING 08WN. 



wol 



20* 
3381 
338? 

3383 

3384 

3385 
3386 
3387 

33on 
3389 
3390 
33^1 

3392 
3393 
3394 

3395 
3396 

3397 
3398 
3399 

3400 

3401 

34Q2 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
341? 
3413 
3414 
3415 
3416 
3417 



44 SEP 08* <75 



1*6 



05 
05 
05 
05 
05 
05 
05 
05 
05 

05 
OF 

05 
05 

05 

05 
OB 
05 
05 
05 
05 
05 
05 
05 
05 
05 



05 
00720 
0072E 
C07?F 

00?30 
00731 
00732 
00733 
00734 
00735 

00736 
00737 
00738 
00739 
0073A 
0073B 
0073C 
0073D 
0073E 
0073F 
00740 
00 7 4l 
00742 
00743 
00744 
00745 



05 00746 
05 00747 



0072^ 

2*8onooi A 

358000E9 02 
2«J3on005 A 
F2460CAC 02 
B^5800AC 02 
204QOC01 A 
B26800AC 02 

3*56000BE 02 
28300006 A 

6A700A34 
3830O0AC 02 
F*B00GAC 02 

3W30O00B A 
3b300CE8 02 
6A7 nC6l 
3$>B 0n i69 02 
3S>B OC89 02 
3&B0O005 A 
31B000BE 02 
6*2oo746 
6A7ooDC4 
OM0001E6 02 
2*800000 A 
3&80O0E9 02 
6*000004 



6A700A56 
E*00O00D A 



PAGE 
# INTRALINE COMMA 

# 
* 

IISET 



NDJ SET # 



equ 

LNTi 
STWjTi 
Ll#Xi 
LB,X;p 

LW#Pl 
AI/X2 

LW#P? 

STW#Pp 

LI#X1 

BALjLNK 

LW^Xl 

LB,Rl 

AN*X1 

STWiXi 

6AL#LNK 

STW#Ri 

STW#Ri 

STWjRl 

CW#«1 

BLE 

BAL/LNk 

DATA 

L!#Tl 

STWiTi 



♦ SET E9D MARKfR 

SET10 BAL#L^K 
B 



$ 

1 

SETFUG 
5 
♦CDTADR, Xt 

♦cdtadr^x? 
1 

♦CDTADR, X? 

LASTSET 

6 

PROCESSC0L*PaH 

CDTADR 

♦CDTADR 

Rl 

SETADR 

READNXTRAND8M 

SV1STSET 

FIRSTSET 

PI 
LASTSET 

SETlo 
TVPEMSG 

ERRM6 


SETFLAG 
MASTERPARSER 

AND EXIT 

SETE9D 
• HUNK 



TURN »SET M©DE» FLAG ON 

GET ADDR OF FIRST SEQ IN COT 

SET PlfFjRST SEQ 
P2iLAST SEQ 



\ PROCESS COL PAKaMS 

CALC XitADDR IN CDT OF NEXT COMMAND 
AFTER »SE» 

PUT THIS IN SETAPR FOR IJCMNP L09P 
READ FIRST RECORD IN RaNGf. 
SET FIRST SEQ NO? 
SET LOOP CONTROL 

MAKE SURE THAT THr FIRST RECORD iS 

IN TN P1»P2 RANGE* 

NO • TYPE! fPi$N0 SUCH REC • 

fNON£» 

TURN OFF »SET MOD?? FLAG 

EXIT TO PARSER 



SET EOD MARKER 
EXIT 



HOI 



20S44 5 


$EP Q8# 


«75 












3418 










# 








3419 










# 








3420 










« 








3421 




05 


0074* 




S£T$L9SP 


EGU 


$ 


342? 


05 


00^48 


33qoocE9 


02 






MTW10 


SFTFLAG 


3423 


05 


00 7 49 


62*200004 
3250O0O9 








BQ2 


masterparser 


3424 


05 


0074A 


02 






L^#Pi 


FIRSTSET 


3423 


05 


00748 


3150O0BE 


02 






CW,Pl 


LASTSET 


3426 


05 


0074C 


6*300760 








BNE 


STL10 


3427 


05 


0074D 


6^7ooElF 








BALjLNK 


WRITERAND8M 


3428 


05 


0074E 










D8l 


M©DE«2 


342g 


05 


0074E 


355002C3 


02 






STW,Pl 


INTFLA61 


3430 










# 








3431 










# 


AT END 8F SET 


|_88P$ MARK SETFLAG 


3432 










# 


AN8THER IlCMMD 


IS GIVEN 


3433 










* 








3434 


05 


007ifF 


2^800001 


A 


STL5 


LI#Tl 


1 


3435 


05 


00750 


3250O19F 


02 






LW#Pt 


CHQJSTGtCNT 


3436 


05 


00751 


2*500001 


A 






CI#Pl 


1 


3437 


05 


00752 


6*30075A 








Bc» 


STL30 


3438 


05 


00753 


6*200756 








BG 


$+3 


3439 


05 


00754 


330001A4 


02 






MTWjO 


ZER8JSTGIFLG 


3440 


05 


00755 


6^30075A 








BNEZ 


STL30 


3441 


05 


00756 


22600A65 


02 






LI#P2 


BA(MSG8)*1 


3442 


05 


00757 


6^7ooBll 








BAl#LNK 


BINT8DEC 


3443 


05 


00758 


6A700DC4 








BAL#LNK 


TYPEMSG 


3444 


05 


00759 


0U00O299 


02 






DATA 


MSG8 


3445 




05 


0075 A 




ST130 


ECU 


% 


3446 


05 


0075A 


2*500000 


A 






LI, Pi 





3447 


05 


00758 


3*50019F 


02 






STW,P1 


CHGJSTGJCNT 


3448 


05 


0075C 


3&50O1A4 


02 






STW^Pl 


ZEROlSTGiFLQ 


3449 


05 


0075D 


3&5001A2 


02 






STW#Pi 


TXFLAG 


345o 


05 


0075E 


3t)8 OCE9 


02 






STW,Ti 


SETFLAG 


3451 


05 


0075F 


6»000004 








B 


masterparseR 


3452 










# 








3453 










# 


M&RE 


Rfcsrds are left in range e 


3454 










« 









i**7 



(EXC ENTERS HERE AT tEND 8F CDTU 
HAS ANY INTRALlNfc CMND BUT t SE • 

BEEN EXECUTED 
YES • HAS LAST RECGRD IN RANGE 8* 

ISSET BEEN PRBCESSED 
N8 • G8 PR8CESS M8RE 
YES • WRITE LAST REC8RD 



S8 L88P WILL BE RESTARTED IF 



MARK SETFLAG T8 HpSTART RANGE 8N 

GET THE N8 f 8F STrInGS CHANGED 

CHECK F8R 8NLY 1 HITf 

G8 MAKE FURTHER CHECKS, 

CHECK F8R ZER8 STRINGS 

AND WHETHER T8 ANN8UNC& IT 

N8j D8N'T B8THER 



CLEAR THE CHANGED STRING CBUNT 

THE ZER8 STRING FlAG# 
AND THE fTXf FLAW 

NEXT liCMND 

exit T8 parser 

' LAST IJSET T8 B£ PROCESSED 



HOI 



so; 

•3 *x W wl 

3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 

3465 
3466 
3467 
3468 
3469 

3470 

3471 

3472 
3473 

3474 
3475 
3476 
3477 



44 



SEP C8j 
05 00760 
05 00761 

05 00^61 
05 00762 
05 00763 
05 00764 

05 00765 
05 00766 
05 00767 
05 00768 

05 00769 
05 0076A 
05 0076B 
05 0076C 
05 0076D 
05 0076E 
05 0076^ 



05 00770 
05 00771 
05 00772 



•75 

6 A 70OElF 

3t>5on2C3 02 
6*7onC7F 

3XB nE28 
6*300770 

31B0O0BE 02 
6*2qo74F 

3bB 000 B9 02 

288FFFF£ a 

358000B2 02 

3280O0E8 02 

35>8oncAC 02 
6*70ftA56 

3280016A 02 

3&8Q0023 02 
6«00030C 



6A7onDC4 
0U00O1D5 02 
6«00074F 



STL1C BAL#LNK 
D01 

STWiPt 
BAL#LNK 
CW#Ri 
BE 

CWjRi 

BQ 

STW#Rj 

LI#T1 

STWjTI 

L^iTl 

STWjTi 

BALjLNK 

LW.Tl 

STWjTi 

B 

* 

# ERRBR: E6F NTT 

* 

STL20 BALjLNK 
DATA 
B 



WRITERAN08H 

M8DE»2 

INTFLAG1 

READSEQUEN 

L(E9F) 

ST120 

LASTSET 

STL5 

FIRSTSET 

•P 

ERRORCM 

SETAdr 

CDTADR 

SETE9D 

SVBPFLAG 

BPFLAQ 

RESTARTSEXeCUTIVE 



TVPEMSG 

ERR^l 
STL5 



WRITE CURRENT RECeRD 



1*8 



READ NEXT REC0RD 

WAS IT AN EOF 

YES «• ERR6R 

IS INPUT SEQ % > SEQ * T© ST8P AT 

VES « G0 EXIT 

NG • SAVE NEW SEW * 

SUPPRESS CeRKS FttR loops 

TW8 AND FFt 

SET CDTADR BACK Te BEGINNING 8F L06P 

SET E8D MARKER 

REAT8RE LAST DFlT VALUE 
8F BPFLAG F8R NEXT ITRAT18N 
G8 RESTART IICMNP L88P 



TYPEI f*E8F HIT* 
G8 EXIT 



HOI 



201 
3478 
3479 

3480 
3481 
348? 
3483 
3484 
3485 
3486 
3487 
3488 

3489 

3490 
3491 

3492 
3493 
3494 
3495 
3496 

3497 
3498 
3499 

35C0 
3501 
3502 
3503 
35C4 
3505 
3506 
3507 
3508 



44 SEP 08* f 75 



1*9 



05 0077a 



05 00773 330Q0020 02 

05 00774 6*lon77D 

05 00^75 F23Q0175 02 

05 00776 F*66fll75 02 

05 00777 21600040 A 

05 00778 6*3on77D 

05 00779 643oo776 

05 0077A 6*7ooDC4 

05 00779 00000223 02 

05 0077C 6*000004 

05 QQ77U 

05 00770 6A7009A4 

05 0077E £9800000 A 

05 0077F 3U500006 A 

05 00780 32A00006 A 

05 00781 2*600000 A 

05 00782 6*700A70 

05 007g3 3*50O00A A 

05 00784 6*700978 

05 00785 6^7ooA56 

05 00786 E*00OQ0D A 



PAGE 
####*######♦####*###*######«####### 

# INTRAUINE COMMANDS •DELETE 1 X * 

# 

# 



i:delete FQU * 

* IT IS AN ERR8R T8 

# 

mTw#o 

BLZ 
LBiXi 
IJDELETE02 LB,P? 
CI/P2 

BNE 

BDR#Xi 
BAL#LNK 
DATA 

B 

IIDELETE01 EQU 
BALjLNK 

BCSj8 
AW, Pi 
LVOP3 
LIj P2 

BALjLNK 
SW/Pl 
BALjLNK 
BALjLNK 



HAVE STRING SUB 1 ALL BLANKSi 



ALLFLAG 

IJDELETEOI 

♦TEXTCADR 

♦TEXTCADRjXi 

X«40» 

IlDELETEoi 
I JDELETE02 

TYPEMSG 
ERRM21 

MASTERPARSER 

$ 

FlNDCSLLMN 

*i?lnk 

P2 

P? 



SHIFTLEFT 

P3 

ADJUSTALLFLAG 

SETE9D 

♦ MLNK 



SEE IF ALL FLAG Is SET. 

GET THE CHARACTER CBUNTt 
SERACH THE STRINU F&R ANY 

NBN BLANK CHARACTER* 

C8NTINUE 

ALL BLANKS MESSA&F 



FIND C8LUMN CQRRES T© FlHST PARaM 

N8NE F6UND • EXIT 

SET Pl,CHAR AFTEH PaRAM STRING 

P2f0 (FIELD WIDTH) 

P3i* T8 SHIFT (pLENGTH 8F ST*G> 
SHIFT LEFT T» DELETE STRING 
IF ALLFLAG IS 8N# SET T8 RESUME 
MATCHING AFTER X AS DELETED 
RESET EBP MARKER 
EXIT 



HOI 



20 
3509 
3510 
3511 
351? 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
352? 
3523 
3524 

w *»* C*> *3 

3526 

3527 
3528 
3529 

3530 
3531 
1532 
3533 

3534 
3535 
3536 

3537 
3538 
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190 



05 
05 00787 
05 00^88 
05 00^89 

05 0078A 
05 0C78B 
05 0078C 

05 0078D 
05 0C78E 
05 0078F 
05 00790 



OF 00791 
05 00792 
05 00793 
05 00794 
05 00795 



05 00796 
05 00797 



00787 

3&DQO021 02 
6 A 7oo9A4 
E^OOCOD A 
2U30OO01 A 
F^6600AC 02 
3U6000AC 02 
6 A 7 nA19 
F*80O006 A 
3U5QOO0S A 
228QO040 A 



3X5000BB 02 
6^100796 
7&8AOC24 02 
2U5ono01 A 
6*000791 



6A70DA56 

ESoonooo a 



PAGE 
# INTRALIKE C6MMANDJ 'SVERwRlTE 



AND EXTEND? X BY Y # 



•««*##*«***#«#«*#***«*«#«###*##**«#*###**««***«««##•** 



Ii8VERwR$EXTEND 

STWiljl-NK 

BAL#LNK 

BCS*8 

Al,Xl 

L8*P2 

AW # P? 

BALjLNK 

LB^Ti 

AW#Pl 

LIjTI 



EQU * 

ALL9K 
FINDC8LUMN 
•IJLNK 
1 

♦CDTADRjXI 
CDTADR 
M8VESTRING 
«P2 
Tl 
t ' 



FIND COLUMN C8RR&S T8 FIRST PARaN 



GET ADDR ©F 2ND STRING IN CDT 
SET P2iABS8LUTE ADDR 8F STRING 
OVERWRITE WITH NfcW STRING 
SET PifCei. AFTEH LAST NEW CHAR 



« 
# 
# 
QEXiC 



BLANK BUT REST 9F CARD IMAGg 



CW # P t 

BGE 

STB/Ti 

Al#Pl 

B 



LASTCLMN 

8FX20 

CARDlMG#Pl 

1 

8EX1Q 



BLANK 8UT BUFFER FR8M CHAR AFTER 
LAST NEW CHAR T» C8L« TO ST0P AT 



# 

* SET E8D AND FXIT 

# 

8EX20 BALjLNK SETE8D 
B MlLNK 



RESET F8D MARKER 
EXIT 



HOI 



20144 SEP C8i 


'75 








3539 










PAGE 


3540 








*#«**#*«#«**««*»# 


3541 








# 


intraline csmm 


354? 








#*####♦#*######## 


3543 








# 




3544 








# 




3545 


C5 


0079« 




IJF8U9WtBY 


3546 


05 00798 


6^70O9A4 






BALiLNK 


3547 


05 00799 


E*80OC0D 


A 




BCS#8 


3548 


05 0079A 


30500006 


A 




AW,Pl 


3549 


05 0Q79B 


2^600000 


A 




LlsP? 


3550 


05 0079C 


2U300001 


A 




Al#Xl 


355l 


05 0079D 


F<?46ocAC 


02 




LB# Xg 


355? 


05 0079E 


304000AC 


02 




A*#X? 


3553 


05 0079F 


F*A00004 


A 




LB/P3 


3554 


05 007AQ 


6 A 700A99 






BALjLNK 


3555 


05 007A1 


3*600004 


A 




LW#P? 


3556 


05 007A2 


6A700A19 






BALjLNK 


3557 


05 C07A3 


3U50000A 


A 




AW#Pl 


3558 


05 007A4 


6 A 7on978 






BAL#LNK 


3559 


05 007A5 


6 A 7onA56 






BALjLNK 


3560 


05 007A6 


E*00O00D 


A 




B 



1*1 



AND? ♦P8LL8W X 



BY Y # 



ECU $ 

FINDC8LUMN 

#!JLNK 

p g 



1 

♦CDTADRjXj 

CDTADR 

#X2 

SHIFTRIQHT 

M8VESTRING 

P<g 

ADJUSTALLFLAG 

SETE8D 

•IILNK 



FIND C8LUMN C8RR&S T8 FIRST FARAM 
N8NE F8UND • EXIT 
SET Pl»CHAR AFTE N PARAM STRING 
P2i0 (FIELD WIDTH) 

GET ADDR 8F 2ND STRING IN CDT 
SET XgiABSSLUTE ADDR 8F STRING 

PSiLENGTH 8F STRING 
SHIFT RIGHT T8 M A KE R88M F8R 2ND 

STRING 
M8VE STRIPS JN T 8 H8LE 
IF ALLFLAG IS 8N# SET T8 RESUME 

MATCHING AFTER Y AS ADDfcP 
RESET E8D MARKER 

EXIT 



HOI 



80U4 J 


SEP 08* 


t75 














3561 












PAGE 








356? 










#*«#««***«#«*«*«#««**#**«#*««##«#««««#««#*«# 


3563 










# 


INTRALINE CRMMANDJ SHIFT X 


tLEFT 


t BY N # 


3564 










#**##**##«#*•**•«*#**#««*«#«#####*««•*#***#« 


3565 










# 










3566 










# 










3567 




05 


0Q7A/ 




II 


!SHIFT$LFFT 


EGU $ 






3568 


05 


C0?A7 


3bDono21 


02 




STWjIjLNK AIL8K 






3569 


05 


QQ7A8 


6 a 7qo9A4 






BALjLNK 


FlNDCeiUMN 




FIND C8LUMN C8RR&S T8 FIRST 


3570 


05 


00 7A 9 


E^SonooD 


A 




BCSjg 


♦ I JINK 




N8NE F8UND - EXIT 


3571 


05 


007AA 


2U30OC01 


A 




Al/Xl 


1 






357? 


05 


007AB 


F*4600AC 


02 




LB*X2 


#C0TADR#X1 




GET ADDR df N IN cDT 


3573 


05 


007AC 


BiiAgooAC 


02 




L>,F3 


♦CDTADR/X? 




SET P3 f NUMBER T8 SHIFT (N) 


3574 


05 


007AD 


E»300000 


A 




8E2 


•IILNK 




IF NfO • EXIT 


3575 


05 


007AE 


6A70OA7O 






BALjLKK 


SHIFTLEFT 




SHIFT LEFT N SpACpS 


3576 


05 


007AF 


6 A 7onA56 






BALjLNK 


SETE9D 




RESET E8D MARKER 


3577 


05 


007BQ 


E^ooncoD 


A 




B 


#IILNK 




EXIT 






PARAH 



Hoi 



20 
3578 

3579 
3580 
3581 
358? 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 

3593 

3594 

3595 
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C5 007B1 

05 007B1 6A70D9A4 

05 00782 E*80000D A 

05 00783 20300001 A 

05 007|4 ^6600AC 02 

05 007B5 3U60OCAC 02 

05 007^6 6 A 700Al9 

05 007B7 F230OO06 A 

05 007B8 3U500C03 A 

05 007B9 6 A 700978 

05 00?BA 6A700A56 

05 007BB E«00OO0D A 



PAGE 
*##*##*##«#***#*«#♦«##*«#*#*##*##**##«#«##« 

* INTRALINE CeMMANDi OVERWRITE' X BY V # 



193 



HBVERWRITE 

BALjLNK 

BCSj8 

AliXi 

LB#P? 

AW^Pg 

BALjLNK 

LB/X1 
AW#Pl 
BALjLNK 
BALjLNK 

B 



ECU $ 

PfNDCeLUMN 
#1 SLNK 

1 

#CDTADRjXi 
CDTAOR 
M6VESTRINQ 

*P2 

Xl 

ADJUSTALLFLAG 

SETE9D 

♦IllNK 



PINO C9LUMN 
N8NE FSUND . 



CQRRES TO riRST PARa^ 
• EXIT 



GET ADR 6F gND STRING IN CDT 
CALC PgfABseLUTE ADDR »F STRJNG 
SVeRWRITE WITH NfeW STRING 
IF ALLpLAG IS 8N# SET T0 RESUME 
MATCHING AFTER V AS 6VEHWRITTEN 



RESET 
EXIT 



E8D MARKER 



HOI 



20 
3596 

3597 

3598 
3599 
3600 
3601 
360? 
3603 
36C4 
3605 
36C6 
3607 
360g 
3609 
3610 
3611 
361? 
3613 

3614 
3615 
3616 



U4 SEP 08* *75 



194 



05 
OS 00?BC 
05 0079D 
05 00 7 9E 
05 Q0 7 BF 
05 00 7 C0 
05 007C1 
05 00 7 C2 
05 00 7 C3 
05 00 7 C4 
05 00 7 C5 
05 007C6 
05 007C7 
05 00 7 C8 
05 00 7 C9 



007B^ 

6 A 7009A# 
E980OG0D A 
2U30O001 A 

f«^6ooac o? 

31HQ00AC Q2 

F2A00004 A 
6A7Q0A99 
**6of)004 A 
6A7Q0A19 

3U5Q0004 A 
3U50000A A 

6A7Q0978 
6 A 7onA56 
E«00O00D A 



PAGE 
♦ INTRALINE C8MM 

« 

IIPRECEDE*BY 

BAL# LNK 

BCS#a 

Aj#Xl 

LB*X2 

AW,X£ 

LB # P3 

bal#lmk 

XWjP? 

BALjLNK 

Al*#Pl 

AH#P1 

BALjLNK 

BALjLNK 



AND* 'PRECEDE* X BY Y • 



EQU * 

FINDC6LUMN 

•IJLNK 

1 

♦CDTADRjXI 

CDTADR 

*X2 

SHIFTRIGHT 

X? 

M8VESTRING 

X? 

P3 

ADJUSTALLFLAG 

SETE8D 

♦IJLNK 



FIND CQLUMN 
N8NE FBUND - 



C8RRES 
. EXIT 



T8 FIRST PARAM 



GET ADDR 8F 2ND STRING IN CDT 
SET X2»ABS8LUTE AdDR 8F STRING 

P3nLENGTH &F STRING 
SHIFT RIGHT T8 MAKE R88M FOR 2Np 

STRING 
M8VE STRING INT8 H8LE 
IF ALLFLAG IS 8N/ SET T8 RESUME 

MATCHING AFTER X AS PRECEDED BY Y 

RESET E6D MARKER 
EXIT 



HOI 



20 
3617 
3618 
3619 
3620 
3621 
362? 
36 e 3 
3624 
3625; 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 



U4 SEP Q8# '75 



05 
OP CO?CA 
05 007CB 
OB 007CC 
05 007CD 
05 007CE 
05 C07CF 

05 C0700 
05 C07D1 

05 007D2 
05 00703 



Q07C* 

3bDono21 02 
6 A 7on9A4 
E9800COD A 
2U300001 A 
F^460CAC 02 
BSA800AC 02 
E*30000D A 
6A700A99 
6A700A56 
E*0QO000 A 



PAGE 



19B 



# INTRALfNE C&MMANDt SHIFT X »RIGHTt BY N * 



I!SHIFT$RIGHT ECU » 
STW#I|LNK ALUK 
BAL#LNK FINDC9LUMN 
BCS#8 



AI#X1 

LB*X2 

U#P3 

BEZ 

BALjlNK 

BAL # LNK 

B 



#MLNK 

1 

#CDTADR#X1 

*CDTADR#XP 

♦IJLNK 

SHIFTRIGNT 

SETE8D 

♦ISLNK 



FIND COLUMN CQRRfcS 
NONE • F6UND ERROR 



Te FIRST PARAM 



GET ADOR 8f N IN c^T 

SET P3»NUMBER Te SHIFT 

IF NiO • EXIT 

SHIFT RIGHT N SPACES 

RESET E9D MARKER 

EXIT 



(N) 



HOI 



20 
3634 
3635 
3636 
3637 
3638 

3640 
3641 
364? 
3643 
3644 
36*5 

3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 

366? 
3663 

3664 
3665 
3666 
3667 
3668 
3669 
3670 



144 SEP 08* »75 



196 



05 
05 00^04 
05 007D5 

05 00?D6 
05 Q0?D7 

05 00?D8 
05 007D9 

05 00?DA 
05 007DB 
05 007DC 
05 0C7DD 
05 007DE 
05 007DF 
05 007E0 



05 007E1 
05 007E2 
05 007E3 
05 007E4 



05 007E5 
05 C07E6 
05 007E7 

05 007E8 
05 007E9 
05 007EA 
05 007EB 
05 007EC 



0Q7D4 

6*7on9A4 
E»8QOC0D A 
2U300G01 A 
F^46D0AC 02 
3U400QAC 02 
F*A00004 A 

388QO005 A 
3U5QOC06 A 
3^A(jo006 A 
6*2007El 
28600000 A 
6*7onA99 
6»0007E5 



6«3007E5 
3AA0O00A A 

22600000 A 

6 A 7ooA7o 



3*5000C8 
38600004 
6 A 700A19 
F2800006 
3U500008 
6*7on978 
6^7ooA56 
E*00O00D 



PAGE 
* INTRALINE C8MMANDI FSR X 'SUBSTITUTE 1 Y * 



l:SUBSTITUTC 

BALjLNK 
BCSjS 
Al#Xl 
LB,X? 

AWjXg 

LB,P3 

LWjTI 

AWjPt 

SW*P3 

BLEZ 

LI#P? 

BAL#LNK 

B 



EQU $ 

FINDC8LUMN 

•IILNK 

1 

•CDTADRjXi 

CDTADR 

*X2 

Pi 
P2 

Pp 

SBS10 



SHIFTRIGHT 

SBS15 



FIND C8LUMN 
N8NE F8UND « 



C8RR&S T8 FIRST PARAM 
• EXIT 



GET ADOR 8F 2ND STRING IN CDT 
SET XpiABSOLUTE *DDR 8F STRING 

P3iLENGTH 9F STRING 
SAVE PI 

SET Pi, CHAR AFTER PARAM1 STRING 
CALC NUMBER T8 SHIFT IN ?3 
IS NEW STRING L8NQER THAN 8LD STKING 
YES - SET PgtO (FIELD WIDTH) 
SHIFT RIGHT AM8UNT 8F DIFFERENCE 
G8 T8 M8VE IN NEW STRING 



♦ NEW STRING SH8RTER 9R EQUAL THAN 8LD »Ng 

« 

SBSiO BE SBS15 
LCW,P3 P3 

LliPJ? 

BALjLNK shiftleft 



ARE NEW AND 8LD STRINGS 8F « LENGTH 

N8 • NEW SH8RTER 

SET P2«0 (FIELD WIDTH) 

SHIFT LEFT AM8UNT 8F DIFFERENCE 



* M8VE New STRTNQ 

* 

SBS15 LW#Pi 

LW/P? 

BALjLNK 

LB'Tl 
AW # Pi 

BALjLNK 
BALjLNK 



INTB P8SITI9N 

Tl 

X? 

M8VESTRING 

#F2 

Tl 

ADJfSTALLFLAG 

SETE9D 

♦ISLNK 



SET Pl*C8Lt 8F PARAM1 STRING 

PgiADDR 8F N£w STRING 
H8VE NEW STRING IN PLACE 
IF ALLFLAG IS 8N# SET T8 RESUME 
MATCHING AFTER Y AS SUBSTITUTED 

RESET E8D MARKER 
EXIT 



Hoi 



SO! 


44 J 


5EP C8# 


'75 












3671 














PAGE 




367? 










#####*#♦#####♦###♦########### 


3673 










# 


intraline csmmandi jump # 


3674 










*####**«*«*##«#««##«#***#*### 


3675 










# 








3676 










« 








3677 




05 


007EU 




IIJUMP 


FQU 


$ 


3678 


05 


007ED 


3*000167 


0? 






MTWio 


STEPFLAG 


3679 


05 


007tt 


6*3007F8 








BEZ 


JMP10 


368c 


05 


007EF 


3*5oncB9 


C2 






L>#Pl 


FIRSTSET 


3681 


05 


007^0 


6 A 7ooElF 








BALjLNK 


WRITERANDftM 


368? 


05 


007^1 


2«J300005 


A 






LI^Xi 


5 


3683 


05 


C07F2 


FS46DCAC 


02 






LB/X? 


*CDTADR#X1 


3684 


05 


007F3 


B25800AC 


02 






LWiPl 


#CDTADR#X? 


3685 


05 


007F4 


6 A 7onC6D 








BALjLNK 


HEADRAND6M 


3686 


05 


007F5 


6*8on7FB 








BCSig 


JHP15 


3687 


05 


0Q7F6 


3 & 500089 


02 






STWjPi 


FIRSTSET 


3688 


05 


C07F7 


6*000688 








B 


FlK ; ISM$STFR*L8eP 


3689 










* 








3690 










• 


ERR6RJ fjUt TLLEGAL AT THIS pdl 


3691 










* 








369? 


05 


007F8 


6A70008F 




JMP10 


BAL#LNK 


TYPECERR 


3693 


05 


007F9 


OUOOOlBl 


02 






DATA 


ERRC4 


3694 


05 


007FA 


E*0QOC0D 


A 






B 


♦ISLNK 


3695 










* 








3696 










# 


ERR^Rl REC9RD 


Ta JUMP T9 D8ESNt 


3697 










# 








3698 


05 


Q07FB 


6 A 70OD8F 




JMP15 


BALjLNK 


TYPECfRR 


3699 


05 


007FC 


OWOOniAD 


02 






DATA 


ERRC3 


3700 


05 


C07FD 


3S5QO0B9 


02 






LW#Pi 


FIRSTSET 


3701 


05 


007FE 


6 A 7onC60 








BAL#LNK 


READRAND0M 


370? 


05 


C07FF 


E«00000D 


A 






B 


♦isink 



1^7 



IS SYSTEM IN 'ST&P M&DE i 
N8 * ERR8R 

WRITE CURRENT RE&6RD 

GET SEQ * FOR JUMP FR6M CDT 



READ THIS REC8RD 
DID IT EXIST 
SAVE NEW SEQ * 

yes • Ge finish jump 

NT 

TYPEJ f.CNjCMND iLGL HgREt 

EXIT 
T EXIST 

TYPE! ».CNJN8 SUCH RECt 



RESTORE »LD RECBND 
EXIT 



HOI 



2GU4 SEP 08# '75 



198 



3703 










PAGE 




3704 










****##***#«««##«, 


»#####♦########*## 


37G5 










* INTRAUINE CQMMANDI NB CHANGE * 


3706 










*«#*«•#*»*#«#*•«««***«#«*««*#»«*#* 


3707 










# 




3708 










# 




3709 




OS 


008CU 




I!N8»CHANQE 


EQU * 


3710 


Off 


00800 


3*000167 


02 


MTWjQ 


9TEPFLAQ IS SYSTEM IN STE^ M6DE 


3711 


OP 


00*01 


6*30O805 




BEZ 


NCG10 N6 • ERR6R 


371? 


05 


00*02 


2*8qO001 


A 


Ll#Tt 


1 


3713 


0? 


008C3 


3&8OO0C0 


02 


STW#Tl 


NeCHGFlG TURN ON »N6 CHANtJF* FLAG 


3714 


05 


00804 


E^oonooD 


A 


B 


• HUNK EXIT 


3715 










* 




3716 










* ERRBRi f N©» TLLEGAL AT THIS P©!NT 


3717 










♦ 




3718 


OF 


00805 


6^7onD8F 




N ! CG10 BAL#LNK 


TYFECERR TYPEi t-CNjCtfND ILGL HER 


3719 


05 


00»C6 


OUOOOlBl 


02 


DATA 


ERRC4 


3720 


05 


008C7 


E 8 000000 


A 


R 


#I?UNK EXIT 



HOI 



20144 SEP 08* '75 



3721 

3722 
3723 

3724 
3725 
3726 
3727 

3728 
3729 

373o 
3731 



05 ooaoa 

0? 00^08 3*800023 02 

05 00809 4»800000 02 

OB 0080A 3&800C23 02 

05 008QB E800000D A 



PAGE 
* INTRALINE C6MMANDJ REVERSE BLANK PRESERVATI8N FLAW * 



199 



IlREVERSEtBPFLAG EQU $ 

LW,Tt BPFLAG 

E6R#T1 Ki 

STW#Ti BPFLAG 

B #1 ILNK 



REVERSE BPFLAG 



EXIT 



Hoi 



20i 


44 5 


?EP 08* 


'75 
















373? 














PAGE 








3733 










*«««#«**«««*#*•«####**«##«*####«#«««#«#*«###*#««######## 




3734 










* 


INTRALINE COMMANDS! TYPEf SUPPRESSING SEGt NUMBERS) # 




3735 










«###*#*«##«*«#««•##«**«***#*«##*«*« ##«#*##*«#*#« **#««##« 




3736 










# 












3737 










# 












3738 




05 


QOgOL 




I! 


TYPE 


FQU 


* 






3739 


05 


00&0C 


331Q01A4 


02 






MTW#1 


ZER6JST6IFLC3 


DSNtT 8UTPUT 6N Ty 




3740 


05 


QO*CD 


3*5000B9 


02 






L**Pl 


FIRSTSET 


GET SEQ * 




374j 


05 


00*CE 


6*7ooD8g 








BAL#LNK 


TYPECARD 


TYPE CARD IMAGE WITH SeQ 


# 


374? 


05 


Q0*CP 


E*OOCOOD 


A 






B 


•IILNK 


EXIT 




3743 










# 












3744 










« 












3745 




05 


ooaiu 




i:type*sup$seq 


ECU * 






3746 


05 


00810 


3^1ooiA4 


C2 






MTW#1 


ZERe?sTG|FLG 


D6N*T OUTPUT 0N T s 




3747 


05 


00811 


225FFFFF 


A 






Ll#Pl 


•1 






3748 


05 


00«12 


6 A 7ooD82 








BAL#LNK 


TYPECARD 


TYPE CARD IMAGE WJTH6UT * 


SEQ 


3749 


05 


00813 


E*C0OO0D 


A 






B 


*I 8LNK 


EXIT 




3750 










• 












3751 




05 


Q081* 




IS 


TYPEX 


FQU 


* 






375? 


05 


00814 


3^000lA2 


02 






MTW.IO 


TxFLAG 


ANYTHING CHANGED 8N THIS 


LINE 


3753 


05 


00815 


E«30000D 


A 






BEZ 


• HUNK 


m 




3754 


05 


00816 


325Q00B9 


02 






Lta#Pi 


FIRSTSET 


GET SEQUENCE NOt 




3755 


05 


00817 


6 A 700D82 








BAIjLNK 


TYPECARD 


TYPE CARD IMAGE WITH SgQ 


N6# 


3756 


05 


00818 


2^500000 


A 






LljPl 





ZER8 ?TX» FLAG 




3757 


05 


00^19 


3 b 5ooiA2 


02 






STW#Pi 


TXFUA6 






3758 


05 


00*1* 


E*00OO0D 


A 






B 


• HUNK 


RETURN 




3759 










« 













2Q0 



HOI 20U4 SEP 08, '75 
3760 
3761 
376? 

3763 

3764 
3765 

3766 
3767 

3768 



3769 

3770 
3771 

3775? 
3773 

3774 
3775 

3776 
3777 
3778 
3779 

3780 
3781 

378? 
3783 

3784 
3785 
3786 
3787 
3788 
3789 

379C 



05 U081B 

35 OO^lB 0*200C30 A 

35 0081C 0<*30019C 02 

35 0081& 323000E5 02 

35 008lE Fb560CAC 02 

35 0081F 20300001 A 

35 00820 F«5000AC 02 

35 00821 Fb5600AC 02 

35 00822 33200CE5 02 

35 008P3 305000E6 02 

35 00824 Fb5onOAC 02 

35 00«25 3«5onoE6 02 

3F 00^26 305onoAC 02 

35 00827 323000E6 02 

35 00828 2*400000 A 

35 00829 3SE800C1 02 

35 0082A B5E800C5 A 

35 00«2B 2W400001 A 

35 Q082C 6^300829 

35 0082D B23onOAC 02 

35 0082E 40300005 02 

35 0082F 2U300100 A 

35 00830 BS38Q005 A 

35 00831 0*200030 A 

35 00832 A 30019C C2 

35 00833 6»0En000 A 



PAGE 

«*«*#•♦««**««###«##«##«»#*###* 

# ADD NEW PARAMETER Ta CDT # 
« P t . tyP£ pF PARAMETER * 

# 

addcdtparam ecu * 

PUSH (Xl/Pj) 



201 



LVo*1 


PARAMPSN 


STB, Pi 


♦CDTADRjXi 


AljXl 


1 


LB/PI 


•CDTADR 


STB#Pl 


♦CDTADR^Xi 


MTW # g 
AW/Pl 


PARAMPSN 
PRMBUFSZ 


STBjPi 


#CDTADR 


SW/Pl 
AW,Pi 


PRMBUFSZ 
CDTAOR 


LW#X1 


PRMBUFSZ 


LI/X2 
LW/DO 



PARAMBUFjXJ? 


STW#Do 

Al#X2 

BDR#Xi 


*F1'X 2 

1 

$»3 


L^jXl 


♦CDTAOR 


ANDiXl 


XFFOO 


AI#X1 

STWiXi 


X»01Q0> 
♦PljX? 


PULL 


(XliPl) 



O^LNK 



SAVE REGS 

BUILD C6NTR8L HW F8R PaRAM IN COT I 
BYTE ol PARAM TyPE 
BYTE H LSC SF PARAM VALUE *ELA. 
TIVE T6 CURRENT CDTADN 

INCR T8 NEXT HW 

ADJUST C8UNT 6F * 6F WftRQS IN ENTRY 

BY SIZE 8F PARAM 
SET PliABSBLUTE ADR TB PUT VALUE AT 



MBVE PARAM VALUE T8 CDT feNTRY 



BUILD tEND 8F CDT* MARKER USING 
NUMBER 6F N£XT LmND IN CDT 

SET 'END 8F CDT» MARKER 
RESTORE REGS 

EXIT 



Hoi 



2o?44 

3791 

379? 
3793 

3794 

3795 

3796 
3797 
3798 
3799 
3800 
38C 1 
38CJ? 
3803 



SEP 08* • 75 



202 



OS 
05 
05 

OB 
OB 

OB 



05 0083* 

00834 32E00048 02 

00*35 21EOOC01 A 

00836 6«3En00O A 

00«37 6A7q D8F 

00838 OUOOOlBl 02 

00839 6»000004 



PAGE 
# CHECK IF ©NLY 9NE ENTRY IK CDT * 



CHECK1CDTEMRV 
LW/DO 
Cl#Do 
BE 

BAL#LNK 
DATA 
8 



EQU $ 
CDT 

1 
O'LNK 

TYPECERR 
ERRC4 

masterparseR 



CHECK IF 8NLY 8IM& ENTRY In CDT 

YES * EXIT 

N8 - TYPE? »»CNJ CMND lLOl. HERE' 

EXIT T9 PARSER 



HOI 



20. 


44 ! 


5EP 08/ 


»75 




3804 










3805 










3806 










38C7 










38C8 










3809 










3810 




05 


00*3* 




3811 


05 


0083A 


0^200060 


A 




05 


00838 


D 30019C 


02 


381? 


0? 


0083C 


2^300000 


A 


3813 










3814 


05 


0083D 


6*700889 






OB 


0083E 


01000236 


02 




OP 


0083F 


01000840 




381R 


05 


00840 


7*8oooCl 


02 


3816 


05 


00841 


2180OC1F 


A 


3817 


OP 


00842 


6«*200845 




3818 


OP 


00843 


2270OE29 




3819 


OP 


00844 


6*0008A1 




3820 


OP 


00845 


6*7on87F 




3821 


OP 


00846 


3S80O0A0 


02 


389? 










3823 










35 c4 










382B 










3826 










3827 


OP 


00847 


6A700889 






OP 


00848 


0&000239 


02 




CP 


00849 


0100084E 






OP 


0084A 


0O000854 






OP 


OO84B 


0*000035 






OP 


C084C 


0?00084E 






OP 


0084D 


0U0CO84E 




3828 


OP 


0084E 


3b8onoAD 


02 


3829 


OP 


0084F 


2*600000 


A 


3g30 


OP 


00850 


096C019C 


02 


3831 


05 


00851 


0^60019C 


02 



PAGE 
# GET FILE IDEKTIFICATI8N « 



2U3 



GETFILEID 



GF5 



PUSH 
Ll#Xi 

nxtna^ 



LBiTl 

CI#T1 

BLE 

LI#LNK 

B 

BALjLNK 

LW#T1 

NXTNAK 



EOU * 
<Xl*Tl) 



ERRP3,J 

(NAME*#) 



SAVE REGS 

USE Xi AS CBUNT »F # 6F WDS PUSHED 



PARAMBUF 
31 

$♦3 

L(ERRP3) 

GETNEXTtERRBR 

GF$PUSN*SUBR 

CHARPSN 

ERRP4#/ 

(NAME^#)jj 

<$<LPARjPERI&D>*GF!0)'J 

(SC9L4lLGL$SEMlCeL0N)jj 

(ENDj«) 



ALL8W SMY 

NAME, 



<» 31 SYTES IN FILE 



PUSH IFILE NAME* PARAh 
SAVE NEXT SCAN PSN 



STUjTi 


CHARPSN 


LI#P? 





PUSH 


P2 


PUSH 


P? 



RESTSRE T8 SCAN # 6R C/R AGAIN 

SET 'ACCT #» & tH A ss^eRO f PARA^S «0 



HOI 



201 
383? 
3833 
3834 
3835 
3836 
3837 
3838 
3839 



3840 
3841 

38*2 
3843 
3844 
3845 

3846 
3847 
3848 
3849 
3850 
3851 
385? 
3853 
3854 
3855 
3856 
3857 



44 SEP Q&m 
05 00852 
05 00853 



3858 
3859 

3860 



05 00^54 
05 00855 
05 00856 
05 00857 
05 00*58 
05 00859 
05 0085A 
05 00858 



05 0085C 
05 0085D 
05 00*5E 
05 0085F 
05 00860 
05 00860 



05 00*61 
05 0086? 
05 00863 
05 00864 
05 00865 
05 00866 



'75 

2U300G02 
6*000877 



6*700889 
0*000236 
0X00O85C 
Q tt 00085S 
226Q0000 
Q*60Ol9C 
2U30OO01 
6*000867 



6 a 7qo889 
0*000236 
0»000867 
01000874 
0^000874 
00000874 



02 



A 

02 
A 



7S80O0C1 Og 
21800008 A 
6^200843 
6A70087F 

3cJ8000AD 02 



02 



Al*Xl 

B 



2 

GF30 



ADJ PUSH C9UNT 
G8 FINISH UP 



204 



« 
GF10 



LEFT PA^ENTMrSfS F8UNDJ G£T ACC8UNT NUMBER AND PASSWQRD 



NXTNAH ERRP3#i 

(NAMEjGFlB)Ji 
(S(C9MjPERI©D5j#) 



# 

« 
GF15 



Ll#Pp 

push Pa 

AliXl 1 

B GF18 

ACC8UNT NUMBFR F6UND: PR8CESS IT 



LB,Tl PARAMBUF 
Cl*Tt 8 

BG GF5 

BALjLNK gf$push*subr 

D8l MBDEfj? 

L^#Tl CHARPSN 

NXTNAM ERRP3ii 

(S(Cf?MjPERI&D)j6Fl8>#; 
(S(RPAR#NAME)jQF?0)i J 
(S(RPAR#CRM)tGF20)ii 
(S(RPAR#END)jGFgo) 



SET lACCT *t PARAM ■ 
G8 PROCESS »PASSw6RD f 

g CHARACTERS MAXt 



password present: get and prscess it 



Hcl 20144 SEP 08s nS 
3861 

386? 



GFl8 



3863 

3864 
3865 

38©fe 
3867 
3868 
3869 

3870 
3871 
3872 



3873 
3874 

3875 

3876 
3877 
3878 
3879 

3880 
3881 

388? 

3883 
3884 
3885 

38*6 
3887 
3 c " 8 

3889 

3890 



05 00867 
OR 00868 
OS 00869 
OS 0086A 
OB 00«6B 
05 00«6C 
05 0086D 
05 0086E 
05 0086E 



05 0086F 

05 0087Q 
05 00871 

05 00872 
05 00873 



05 00874 
05 00875 
05 00876 



05 00877 

05 00878 
05 00878 
05 00879 
Q5 00«7A 
05 00879 
05 0087C 
05 C087D 
05 0087E 



6*700889 
01000236 02 
0100086A 
728onoCl 02 
21800008 A 
6'200843 
6A70087F 

3280OCAD 02 



6*700889 
0^000236 02 
01000877 

0^000877 
0^000877 



22600000 A 
0960019C 02 
2U300001 A 



NXTNAM 



LBjTl 
CI#Ti 
BG 

BALjLNK 

D8l 

LW#Tl 

NXTNAM 



ERRP3j4 

(namej*) 



parambuf 






8 CHARACTERS MAX* 



GF5 
GF$PUSH$SUBR 

M6DE12 

CHARPSN 

ERRP3#i 

(S(RPAR#NiAME)*GF30^i 

(S(RPAR#C9M)*GF30)ji 

<S<RPAR#END>jGF3Q) 



PUSH iPASSK8RD» PARAM 



# 

* N8 PASSWORD PRESENT 

* 

GFgO 



Ll#P? 

PUSH 

AIjXi 




P2 

1 



SET »PASSW8RD» PArAM i 



* REC0NSTRUCT FILE ID IN »PARAM8UF» 
* 



35530O0E6 02 GF30 STwjXI 

D8i 

3^8onoAD 02 STWjTi 

0*6ool9C Q2 PULL 

3&66O0CQ 02 STW#Pp 

643on879 BORjXi 

0*200060 A PULL 
QA30O19C 02 

6&0EOOOO A B 



prmbufsz 

M8DEt2 
CHARPSN 

Pp 

PARAHBUF»i#Xi 

$•2 
(Xl/Tl) 

OjLNK 



SET * 8f PARAmS ■ XI 

SET T8 RE-SCAN LAST P8SITI8I 
REC8NSTRUCT FID JN PARAM&UF 



REST8RE REGS 
EXIT 



HOI 



20J44 SEP 08* 


'75 










3891 






« 


SUBR 


TB PUSH 


A NAME 6NT8 T 


389? 






# 








3893 


05 


0087* 


6F$PUSH*SUBR 


ECU * 


3894 


OB 0087F 


72500GC1 02 






LB'Pl 


PA«AM8UF 


3895 


OS 00880 


2U5000C* A 






Al/Pl 


4 


3896 


05 00881 


2&5ono7E A 






SLS#Pi 


•? 


3897 


05 00*82 


3U30OC05 A 






AW#Xi 


Pi 


3898 


05 00^83 


2^400000 A 






LI*X2 





3899 


05 00884 


3*68ooCl Q2 






LW/P? 


PARAMBUF,X2 


3900 


05 00?85 


y 6 O ni9C 02 






PUSH 


P? 


3901 


05 00^86 


20400001 A 






AIjX? 


1 


39q? 


05 00887 


645 0n g84 






BORiP! 


$-3 


3903 


05 00888 


6*oeogoo A 






8 


0*LNK 



2U6 



SET Pi f LENGTH QF naME |N BYtES 
ADD 1 AND RdUND Sq PliLEN^TH 8F 

TEXTOSTRINS IN WDS 
ADJ PUSH C8UNT 

PUSH TEXTCpSTRINW 8NT8 STACK 
BACKWARDS 

L69P 
EXIT 



Hoi 20J44 SEP C8j *75 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
391? 
3913 
3914 
3913 



207 



3916 

3917 

3918 

3919 

3920 
3921 

392? 

3923 
3924 

3925 

3926 
3927 

3928 
3929 

3930 
3931 
3932 
3933 
3934 

3935 
3936 

3937 
3938 

3939 



05 
OS 00889 
OB 0088A 
05 0088B 

0* 0088C 
05 0088D 
05 0088E 
OB Q088F 
05 0089Q 
05 00891 
05 00892 
05 00893 
05 00894 



0088* 

0*200040 A 
0&30019C 02 
3*6onCAD 02 
725Cni76 02 
2U600001 A 
215on040 A 

6*3on88C 
22300004 A 

715fef)8CD 
6*3on8CB 
64300891 
2*^00001 A 



05 00895 l*5000lC 02 

05 00896 6«9008AC 

05 00897 1^50001A 02 

05 00^98 6*9on8AC 

ooooocoi 

05 00899 lygOOOlE 02 

05 0089A 6»9008AC 



PAGE 

* GET NEXT NAMr FR8M TELETYPE INPUT BUFFER * 

* G£N,*,24 * 8F BRANCHESjADDR 8F ERR8R MSG * 

* GENj*#24 TYPE 1#8RANCH ADDR 1 * 

* • t • IM M« IM * 

* 6EN#8#24 TYPE N/BrANCH ADDR N * 



# 

getnextname ecu $ 

PUSH (XIjP?) SAVE REGS 



# 
# 
GNio 



H*/P? 
L&*P\ 
AI/P2 

BE 
LI#Xi 

CB^Pi 

BE 

BDRjXI 
LIjX? 

TEST If CHAR 
IN PARAMBUF 



CHARPSN 
TTYIMGjP? 

1 
t I 



NTBLiSZ 
QNTBUliXi 
GN50 
$•2 
1 



SET P2«PSN 8F NE*T INPUT CHAR 

GET INPUT CHAR 

INCR CHAR PSN 

SKIP LEADING BLANKS 

CHECK IF CHAR CeNRESPQNDS T8 &N£ 
8F THE 'GETNEXTNAME' TYPES 

N8 • LSdP 

USE X? AS INDEX INT8 PaRAMBUF 



CAN BEL8NG T8 A FILE ID »NAME'; If SO, BUILD NAME 



05 C089B 
05 0089C 



2*300008 A 
7156nfiDl 



CLM,P1 

BIL 

CLhjPi 

BIL 

D8 

CLMjPl 

BIL 
FIN 
U'Xl 
CB#P1 



LETTERS 

GN30 

DIGITS 

GN30 

M8DE12 

LCLETTERS 

GN30 

GNTBLPS2 
GNTBLpjXi 



IS CHAR A LETTER 8R DIGIT 



N8 • IS CHAR 8NE 8F THE ©ThER LE^AL 
tNAMEt CHARS 



HOI 



20? 

3941 

394? 
3943 

3944 

3945 

3946 
3947 

3948 
3949 
3950 
3951 
395? 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
396? 
3963 
3964 
3965 
3966 
3967 
3968 

3969 

397q 

3971 
397? 

3973 

3974 

3975 
3976 



44 SEP 08j 
05 G089D 
05 Q089E 
05 Q089F 

05 00&AO 



05 
05 C0SA1 
05 00»A2 
05 008A3 
05 OO8A4 
05 008A5 
05 C08A6 
05 008A7 
05 003A8 
05 00$a9 



05 008AA 
0* 008a8 



05 008AC 
05 OO^AD 
05 008AE 
05 008AF 
05 OOSBO 
05 0O«Bi 



05 00882 
05 00883 
(35 00 88 4 



'75 

6«*3on8AC 
6*300890 
21^00001 
6*200882 



008A1 

325E0C00 A 
31500009 02 
6*4008A5 
33E0O0E5 02 
4»500007 02 
2150022E 02 
6*lon8AA 
3b5on2BA 02 
6»0002B9 02 



3^50n?87 02 
6*000266 Q2 



7^58ooCl 02 
2U4onOCl A 
7*5C0176 02 
2U600001 A 
21500040 A 
6 y 3or,895 



2^300003 A 
2*500040 A 
7&58noCl 02 



BDRiXi 

CI#X 2 

8G 



GETNEXT$ERR6R 
LWjPI 
CW/Pi 
BAZ 

MTWj.p 

AND'Pl 
CI, Pi 

BL 
STWjPi 

B 



GN30 
• •2 
1 

GN35 



ECU $ 
0*lNK 
X80000C 

**2 

paRampsn 

XlFFFF 

ERRPl 

GM25 

OhV$TYPEPFRR+i 

OMYSTVPEPFRR 



2U8 
YES m qQ PUT CHAN IN PARAMbUF 
L89P 

N8T A »NAME» CHAN • WERE ANY SUCH 
CHARS F6UN0 (IF N8* ERR8R) 



(ENTER MERE IF NO LEGAL TYPE FOUND) 

GET ADDR ©F ERR8« MgG 

TEST IF tDECR PA*AMPSNt BIT SET 

YES • DECR PARAM PSN BY 1 

IS IT A «Pi ERR6K 

N8 • IT IS A fC» FRRBR 

PUT ERR8R MS<* ADPR IN DUMMY CALL 

G6 PRINT ERR8R MSG 



# ERR&R TYPE «C'J G$ T8 PRINT MESSAGE 

GN25 



STWjPi 
B 



DMY$TYPECERR*1 
OMY$TYPECFRR 



PUT ERR8R MSG ADUR IN DUMMY CALL 
G8 PRINT ERR8R MSG 



# 

* A LEGAL 'NAMF' CHAR p8UNDj PR8CESS THIS 

# 
GN30 



STB/Pi 
Al#X2 
LB, Pi 
Al/P? 

CI#P1 

BNE 



PARAMBUFjXg 

1 

TTYIMGjP2 
1 

! 1 
GN10 



PUT CHAR IN PARAMBUF 

INCR PARAMBUF INPEX 

GET NEXT INPUT CH A R 

INCR CHAR PSN 

IS CMAR.BLANK 

N8 • G8 GET NEXT CHAR 



END PF !NAMc» F8UND: ADD TRAILING BLANKS AND FINISH BUILDING PARAMBUF 



# 
GN35 



LliXl 

L!#Pl 
STB,P t 



3 
t » 

PARAMBUFjXg 



PUT 3 TRAILING BLANKS 8N »NAME» 



HOI 



20! 
3977 
3978 
3979 

3980 
3981 
398? 
39R3 
3984 
3985 
3986 
3987 
3988 

3990 
3991 

399? 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 

4004 
4005 
4006 

4007 
4008 
4009 

4010 
4011 

4Q12 



44 SEP 08j 
OF 00865 
OS 008B6 
C5 008B7 
Q5 008B8 
OF C08B9 
05 008BA 
OF 008BB 
OF C08BC 



♦75 

2U400C01 A 
6*300*84 

2U4FFFFC A 

7i?40O0Cl 02 

2U4Q0004 A 

2b40007F A 

22500001 A 

2U6FFFFF A 



05 
OF 008BD 
OF 008BE 
OF 008BF 

OF OOSCO 

OF C08C1 
OF 008C2 

05 008C3 

OF 00«C4 



OF 008C5 
OF 008C6 
OF 008C7 
OF 008C8 

OF 008C9 
OF 00«CA 



OF C08CB 
OF 008CC 



0088^ 

3*>4qooE6 02 
F2300C07 A 
2*400004 a 
F1580007 A 

6»3on8C5 
2U4QOO04 A 
6*3on8Co 
6«0008A1 



2&4onc7E 
B2F800Q7 
3S>6000AD 
0^200040 
CA30019C 
EaoooCOF 



7«*56ft8CF 
6«00O8BD 



A 

A 

02 
A 

02 
A 



Al#Xp 

BDRiXi 

AI/X2 

STBiX? 
AI#X? 

5lS#X2 

LI*P1 
AliP2 



1 

**2 

• 4 

parambuf 

4 

• ? 

NAME 
•1 



GFTNEXUFIMSH 
STW*X? 
LB,Xi 
LI/X2 
CB#P1 

Al#X? 
BOR#Xi 

B 
# 
♦ MATCHING BRANCH 

» 

QN45 SLSjX2 
LW,D1 
STWjP 2 
PULL 



EQU $ 
PRMBUFSZ 

4 

#LNKjX2 

GN45 

4 

$-3 

GETNEXT$ 



2U9 



PUT C8UNT IN PARAMBUF T8 FqrM 

TEXTC. STRING 
SET PARAMBUF SIZE ■ p WDS 8F TEXT 

SET TYPE?*NAME» 

SET CHAR PSN T8 KpSCAN LAST CHAR 



(ENTER HERE If LEGAL TyPE F6UND) 

SET PARAMBUF SUE 

SET X ls # 8F BRANCHES 

SET X2»IND£X INT 1 ? PaRaM LIST 

SEARCH FQR C8RRES TyPE IN LIST 



ERR8R 
F8UNDI G8 EXECUTE IT 



INCR INDEX 

L88P 

N8NE F8UND 



ERROR 



B 



*? 

«LNK,X2 
CHARPSN 
<Xl#*2> 

♦Dl 



* 

# A LEGAL 'GETNEXTNAMEf TYPE F8UND 

# 
GN50 



LB*P1 
B 



GNTYTBLIjXI 
GETNEXT$FINISH 



SET DtfB^ANCH ADOR 

RESET CHAR PSN 
REST8RE REGS 

G8 T8 BRANCH ADD* 



SET Pl.TYPE 8F MATCH F8UND 
G8 FINISH UP 



TABLF 8F LeGaL 'GETNeXTNAME* MATCH CHARS 



HOI 



20: 


44 J 


SEP 08i 


» '75 














4013 




05 


ooacu 




GNTBL1 


FGU 


$ 




4014 


C5 


008CD 


OU 


A 






DATAj 1 





(FILLER) 


4013 


05 


008CD 


1 QU 


A 






DATAj I 


CR 


08 C/R HIT 


4016 


05 


008CD 


8 60 


A 






DATAj 1 


CM 


7 J C8MMA 


4017 


05 


0C8CD 


3 40 


A 






DATAj 1 


S(LP/PR) 


9#11J LEFT PARENjPERIftD 


40lg 


05? 


008CE 


1S> 


A 






DATAj 1 


S(PPjLF) 


10jO : RIGHT PAR&Mj LINE 


4019 




ooooooo* 




GNTB11S2 


EQU 


BA(»).BA(GNTBL1>< 


■ 1 


4020 














B8UND 


4 




4021 










» 










402? 










* 


TABLE 


6F TYPrS 


CeRRESPaNDlNG T9 


legal chars 


4023 










# 










4024 




05 


008C* 




QNTYTBU1 


FQU 


« 




4025 


OF 


008CF 


ou 


A 






DATAj 1 





(FILLER) 


4026 


05 


OO^CF 


1 ou 


A 






DATAm 





OJ C/R HIT 


402? 


0* 


C08CF 


d 07 


A 






DATAjt 


7 


7» C&MMA 


4028 


OB 


008CF 


3 0» 


A 






data # i 


S(9#m 


9flll LEFT PAREN^PERlftD 


4029 


05 


008D0 


00 


A 






data,i 


S(lOjO) 


IOjC I RIGHT PARfcNj LINE 


4030 














B6UND 


4 




4031 










# 










4O3? 










* 


TABLE 


eF legal 


SPECIAL CHARS IN 


A 'NAME' 


4033 










# 










4034 




05 


008D1 




GNTBL2 


ECU 


« 




4035 


OF 


008D1 


OU 


A 






DATAM 







4036 


05 


00801 


1 6U 


A 






DATAjt 


t t 




4Q37 


05 


008Dl 


d 50 


A 






DATAj 1 


f $ t 




4038 


05 


008D1 


3 5<- 


A 






DATAji 


!*' 




4039 


05 


00802 


6U 


A 






DATAj 1 


t •< 




4040 


05 


00802 


1 6L 


A 






DATAj 1 


t X t 




4041 


05 


00«D2 


2 7A 


A 






DATAj 1 


»!' 




404? 


05 


008D2 


3 70 


A 






DATAj 1 


»#' 




4043 


05 


008D3 


7L 


A 






DATAj 1 


»a>' 




4044 


05 


008D3 


I 








D91 


M6DEfl 




4045 








*S# 






DATA,l 


f f 




4046 




ooouoco* 




GNTBL2SZ 


EQU 


BA(*)-BA(GNTBL2). 


• 1 


4047 














B9UND 


4 





2i0 



FEED, 



FEED* 



MCI 



4048 
4049 
4050 
4051 
405? 
4053 
4054 

4055 
4056 
4057 
4058 
4059 

4060 
4061 
406? 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 



SEP 08# >75 



PAGE 
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05 O0gD4 

35 00804 0*200040 A 

'35? 008D5 B 30019C OP 

35 00*D6 326000AD 02 

?B 008D7 7*5Cni76 02 

35 008D8 2U60O001 A 

35 00»D9 2X500040 A 

35 0080A 6»3008D7 

35 00«C>B 2^300005 A 

35 008DC 7X56095F 

35 00*00 6*3oo*F4 

35 C080E 643008DC 

35 008DF 1^50001A 02 

35 QOSEQ 6»9on917 

35 Co8El 2150004B A 

35 008E2 6*300917 

35 Q08E3 2*400001 A 

35 008E4 2X500061 A 

35 C0«E5 6*30O8F7 

ooooooox 

35 008E6 l»5onoiE 02 

35 C08E7 6»9on8EA 



35 008E8 
35 008E9 



1^50O0lC 02 
6^90O8Al 



* GET NEXT PARAMETER FR8P TELETYPE IN! 



* ^EN,gjg4 # 8F HRANCHESiADDR QF ERROR MSG * 

* GENj8j24 TVPE l'BRANCH ADDR 1 ♦ 

* ••• ••••§•••• # 

* GENj8*24 TYRE NiBRANCH ADDR N # 

M. 



GETNE.XTPARAM 
PUSH 

LW,P? 
LB,Pl 

AI/P2 

CliPi 

BE 

LI#Xi 

CB,Pi 

BE 

BDRjX 

Clh#P 

BIL 

CI#Pl 

BE 

LliX2 

CI, Pi 

BE 
D8 

CLM,P 

BIL 

FIN 

CLM,P 

B8L 



gQU * 
(X1'P2) 

charpsn 

TTYIMGjP2 

1 
f t 

i»3 

6PTBLSZ 

GPTBL,Xi 

GP20 
$•2 

DIGITS 
GP50 

t 9 ' 

GP50 

1 

'/♦ 

GP30 

MeOEiP 

LCIETTERS 
GP10 



1 LETTERS 

GETNEXT$ERR8R 



SAVE REGS 

SET P2«PSN 8F NE*T INPUT CHAR 

GET INPUT CHAR 

INCR CHAR PSN 

SKIP LEADING BLANKS 

CHECK IF CHAR C8*ReSP8nDS T8 8Ne 
8F THE »GETNEXTHARAM* TYPES 

N8 • L88P 

CHECK IF CHAR IS A DIGIT 

CHECK IF CHAR IS A ft t 

N8 - USE X2 AS INqEX InT8 PARAMBUF 
CHECK IF A STRING F8UND 



N8 - CHECK IF ALPHA TEXT F8UND 
N8 • ERR8R 



ALPHABETIC TFXT F8UNDI BUILD TEXTC-STRIN6 IN PARAMBUF 



HOI 



20? 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 

4096 
4097 

4098 

4099 

4100 
4101 

410? 
4103 
4104 

4105 
4106 

4107 
4108 
4109 
411C 
4111 
411? 
411 3 
4114 

4115 
4116 
4117 
4118 
4119 
4120 



44 SEP C8j '75 
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OB 008EA 

OB C08E9 
05 00 8 EC 
05 QcSED 



75580CC1 02 
2U40OC01 A 
7cJ5Coi76 02 
2U60O001 A 



cooooooi 

OS 008EE l*50nolE 02 
0? 0C8EF 6<«9on8EA 



OF 008F0 
05 008F1 
OF 008^2 
05 008^3 



05 008P"4 
05 008^5 
05 008F6 



05 008^7 

05 00«F8 
05 008F9 
05 Q08FA 
05 008FB 

05 ooa^c 

05 008FD 

05 C08FE 
05 008FF 



05 00900 
05 00901 
05 00902 



l^Sonoic 02 
6»9on8EA 
22500006 A 

6*000905 



7|56n96l 
2*400001 

6*oonaBo 



7cJ5Cni76 

2U6Q0001 
3l6oni9A 

6^200914 
21500061 

68300900 

7b5800Cl 
20400001 
6»0008F7 



02 

A 

02 



02 
A 



7«J5C0i76 02 
2U60DC01 A 
21500061 A 



GP10 



STB, PI 
Al,Xp 
LB, Ft 
Al,P? 

D8 
CLM,Pt 

BlL 

FIN 

CLM,P1 
BIL 
LI, Pi 

B 



PARAMBUFiX2 

1 

TTYIMG,P^ 

1 

M8DE«2 
LCLETTERS 
QP10 

LETTERS 
QP10 
ALPH 
QP40 



PUT CHAR IN PARAMBUF 
INCR PARAMBUF INUrX 
GET NEXT CHAR 
INCR CHAR PSN 



IS CHAR A LETTER 
YES «• L88P 
N8 • SET TYPLPtALPHf 
G8 FINISH UP 



# A LEGAL »GETNEXTPARAM» TYPE F8UND 

GPjG LB, Pi GPTYT8L4X1 SET P11TYPE 8F MATCH F8UND 

LI,X2 1 SET INDEX IN CASE ©F DEFAULT 

B QETNEXT$FIMSH G8 FINISH yP 



♦ STRING F©U N D! BylLD T£XTC*STRING IN PARAMBUF 

* 

GP30 LB#P1 TTYIMQ,Pg 

Al,P2 1 

C**V? TTYIMGSZ 

BG GP45 

CI, Pi ?/» 

BE GF35 

GP30A STB,P1 PARAmBuFjX2 

Al,X? 1 

B GP30 



GET NEXT INPUT CHAR 

INCR CHAR PSN 

CHECK IF END 8F GMND HIT 

YES • ERR8R 

IS CHAPM/t 



N8 - PUT CHAR IN PARAMBUF 
INCR PARAMBUF INPfX 
LB9P 



# »/' F8UNDJ DFTERMINE IF IT IS END 8F STRING 8R !//» 
GP35 LB, Pi TTYIMG,Pg GET NEXT INPUT CHAR 

Al,P2 1 inCr char psn 

CI, Pi »/» IS IT A »/? ALS8 



M01 



20 
4121 
412? 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 

4132 

4133 

4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
414? 

4143 
4144 
4145 
4146 
4147 
4148 
4149 

4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 



144 SEP 08# 
IJ5 00903 
OF 0090* 



175 

6«30O8FD 
28500005 A 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



05 

05 
05 



00905 
00^06 
00907 
00908 
00909 
OO^OA 
0090B 

009CC 
009CD 
G09CE 
0090F 
00910 



009U 

00912 
00913 



05 00914 
05 00915 
0* 00^16 



05 00917 
05 C0918 
05 00919 



2^300003 A 
2&F0O040 A 
7&F800C1 02 
2U400C01 A 
64300907 
2U4FFFFC A 
6^300911 
7&40O0C1 02 
2U400004 A 
2b40H07E A 
2U6FFFFF A 
6*00O8BD 



6A700D99 
0U0OO276 02 
6*000004 



6A700D99 
0U00O265 02 
6*000004 



22300000 A 
2«J4FFFFF A 
22F0O00O A 



BE 
Ll#Pl 



QP30A 
STRG 



YES * PUT 8NE »/' IN PaRAmBUF 
N8 - SET TYPfcf'STRGf 



213 



* END 8F ALPHA TEST 8R STRING F8UND1 ADD TRAILING BLANKS AND FINISH 

♦ BUILDING PaRaMBUF 



GP<*0 



Ll#Xi 3 

Ll*Di 1 • 

STBjDI PaRAMBUFjX2 

Al#X2 1 

BORjXi *»a 

Al*X? «4 

BEZ GP43 

STBjX2 PARAMBUF 

Al/Xg 4 

SIS,X2 w? 

AI#P? «1 

B GETNEXTfFINlSH 



PUT 3 TRAILING BUNKS 8N TEXT 9R 
STRING 

CALC LENGTH 8F STRING 

IS LENGTHfO 

N8 - BUILD TEXTOSTRINQ WITH LENUTH 

SET PARAMBUF Silt » * QF WDS 8F TEXT 

SET CHAR PSN T8 *ESCAN L a ST CHAR 
G8 FINISH UP 



TYPE! »«PN|NULL S TRNG» 
G8 T8 PARSER 



* ERR8RJ STRING IS NULL 

* 

GP43 BAL#LNK TYPEPERR 

DATA ERRP18 
B MASTERPARSER 
* 

* ERR8RI STRING T88 L8NQ T8 FIT IN BUFFER 
# 

GP45 BALiLNK TYPEPERR TYPEI f.PNlILGL STRG* 

DATA ERRP15 

B MASTERPARSER EXIT T8 PARSER 
* 

* digit eR Decimal psint fsundj initialize 
# 

GP50 Ll'Xl USE XI T8 INDIcATF 1ST 8R 2ND Sm * 

Ll#X2 M USE X? T8 SHOW INT6(«l) 6R SEQ(>»0) 

LI#D1 USE 01 AS ACCUMULAT8R 

« 



HOI 



201 
4158 
4159 
4160 
4161 
416? 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4l7o 

4171 
417? 
4173 
4174 
4173 
4176 
4177 
4178 
4179 

418C 
4181 
418? 
4183 
4184 
4185 
4186 
4187 
4188 
4189 

4190 
4191 
419? 
4193 
4194 



44 sEP 08* '75 
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35 C09lA 
05 OO^lB 
05 GO^lC 
05 0091D 
0? OO^lE 

05 00 9 lF 
05 C09?C 
05 00^21 
05 00^22 
05 00^23 
05 00924 
05 00925 
05 00^26 
05 00927 



05 QC928 
05 00^29 
05 0092A 
05 00^28 
05 0092C 
05 C092D 
05 C092E 
05 C092F 

05 00930 
05 00931 
05 00^32 
05 00^33 



05 C0934 
05 00935 



1*5C0C1A 

6^9qo920 
2J5Q0048 
6*300938 
2*400003 
6»000928 
23FQOO0A 
2U5FFF10 
3UFon005 
3lF nE2A 

6«lon931 
725C0176 

2U6on001 
6«00n91A 



7*5Cni76 
2U6QOG01 

l y 5onolA 

65»9oo934 

2*Foooqa 

2U5FFF10 
3UF00005 
2U4FFFFF 
6*100928 
6 A 7onD99 

0U00O25O 
6*000004 



02 



02 
A 



02 
A 

02 



02 



# determine what was fqundj if digit* accumulate diwtts as a binary 

» NUMBER 



* 
QP52 



GP52A 



CLMjP! 

BIL 

CliPl 

BNE 

LU*2 

B 

MpDl 
Al/Pl 

AW#Dl 
CW#Ol 

BGE 
L8#P1 
AUP2 
B 



DIGITS 
GP52A 
f • ? 

GP60 
3 

GP53 

10 

-?0* 

Pi 

L(IOOOO) 

GP53A 

TTYlMGiP2 

1 

GP52 



IS CHAR A DIGIT 

YES • G8 ACCUMULATE IT 

IS CHAR A t.t 

YES • USE X3 T9 CNT DIGITS A^TER »•» 
G8 PR8CESS »•' 
ACCUMULATE DIGIT 



GET NEXT INPUT C H AR 
INCR CHAR PSN 
L88P 



# DECIMAL P8INT F8UNQ? ACCUMULATE DIGITS AFTER IT 

« 

GP53 LB, Pi TTYIMGjPj? 

Al/P? l 

CLM#Pi DIGITS 

B8L GP55 

Ml#Dl 10 

Al#Pl -fO' 

AW#Dt P\ 

Al*X? .1 

BGEZ GP53 

6P53A BALjLNK TYPEPERR 

DATA ERRPlo 

B MASTERPARSER 



GET NEXT INPUT CHAR 
INCR CHAR PSN 
IS CHAR A DIGIT 

YES • ACCUMULATE IT 



CHECK IF >3 DIGITS FOUND 

N8 • L88P 

YES • TYPE? '-PNSILGL SEQ #• 



G8 T8 PARSER 



# END 8F DIGITS AFTER DECIMAL P8INT 
# 



21400000 A 
6«30O938 



GR55 



CliX? 
BE 




GP60 



WERE EXACTLY 3 DIGITS F8UND 



HC1 



20? 


44 < 


5EP 08# 


175 










215 


4195 


05 


00936 


23F0OO0A 


A 




Ml#Dl 


10 


N8 • ADJ SEQ * F»R MISSING DIGIT* 


4196 


05 


00937 


64400936 






BDR#X? 


*-l 




4197 










* 








4198 










# £ND 


8F INTEGFR 


8R SEQ #1 SEE IF 


seq # pair present 


4199 










# 








4200 


05 


00938 


21300001 


A 


GP60 


CI*X1 


1 


IaAS THIS 2ND SEQ * 8F PAIR 


4201 


pi; 


00^39 


6»3on94B 






RE 


GP63 




420? 


05 


0093A 


21500060 


A 




Cl/Pl 


t » t 


N8 • DBES A t,i PaUL^W FIRST 


4203 


05 


00936 


6*300957 






BNE 


GP66 




4204 


05 


0093C 


214FFFFF 


A 




CI#Xg 


•1 


YES • HAS FIRST An INTEGER 


4205 


05 


0093D 


6*30093F 






BNE 


* + 2 




4206 


05 


0093E 


2^Foo3E8 


A 




Ml/Dl 


1000 


YES - CONVERT T8 A SEQ * 


4207 


05 


0093F 


35F noCi 


02 




STWjDi 


parambuf 


PUT VALUE IN PARAMBUF 


4208 


05 


00940 


2230OC01 


A 




ll/Xl 


1 


SET Xi»2ND SEQ * 


4209 


05 


00941 


2*4FFFFF 


A 




LI'X? 


"1 


RESET X2 & Dl 


4210 


05 


00942 


2^FoO000 


A 




LI#D1 







4211 


05 


00943 


7«J5Cni76 


02 




LB, Pi 


TTV!MG#P2 


GET NEXT INPUT CH A R 


4212 


Q5 


00944 


2U60OC01 


A 




Al/Pg 


1 


INCR CHAR PSN 


4213 


05 


00945 


l y 5000lA 


02 




CIMjPi 


DIGITS 


IS CHAR A DIGIT 


4214 


05 


00946 


6»9oo920 






BIL 


GP52A 


YES • G8 ACCUMULATE IT 


4215 


05 


00947 


21500048 


A 




CI, Pi 


'.» 


IS CHAR A »#' 


4216 


05 


00948 


6^300931 






BNE 


GP53A 


N8 • ERR8R 


4217 


05 


00949 


2240OC03 


A 




LI#X? 


3 


YES • USER X3 T8 CNT DIGITS AFTEK », 


4218 


05 


0094A 


6*000928 






B 


GP53 


66 PR8CESS ft f 


4219 










# 








4220 










» D8N£ 


WITH $£C8ND SEQ * 8F PAIR? 


FINISH UP 


4221 










* 








422? 


05 


00946 


214FFFFF 


A 


GP63 


Cl'Xg 


•1 


*AS SECOND AN INTEGER 


4223 


05 


0094C 


6930094E 






BNE 


*+2 




4224 


05 


0094D 


23F 03E8 


A 




Ml/Oi 


1000 


YES • C8NVERT T8 A SEQ # 


4225 


05 


0094E 


3&F0OOC2 


02 




STN#D1 


PARAMBUF*! 


PUT VALUE IN PARAMBUF 


4226 


05 


0094F 


2<J50O003 


A 




Ll#Pl 


SEQ2 


SET TYPE«tSEQ2t 


4227 


05 


00950 


2*400002 


A 




L1#X? 


2 


SET PARAMBUF SIZE - z 


422g 


05 


00951 


2U 6 FFFFF 


A 




Al,P? 


• 1 


SET CHAR PSN T8 RpSCAN LAST CHAR 


4229 


05 


00952 


31F00CC1 


02 




CW*Ol 


PARAMBUF 


IS SEQ # 2 >« SEU # 1 


4230 


05 


00953 


6*1008BD 






BGE 


GFTNEXT$FINISH 


YES • G8 FINISH UP 


4231 


05 


00954 


6 a 7qoD99 






BALjLNK 


typeperr 


N8 - TYPE? ••PNjSe02<SEQl« 



Hoi 



20 
4232 
4233 

4234 
4235 

4236 
4237 

4238 
4239 
4240 
4241 
4242 
4243 

4244 
4245 
4246 

4247 
424g 
4249 
4250 
4251 
425? 
4253 
4254 
4255 
4256 
4257 
4258 

4259 

4260 
4261 
4262 

4263 
4264 
4265 
4266 
4267 
4268 
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(35 00955 00000254 02 
05 00956 6*000004 



05 00957 
05 00958 
05 00959 

05 0095A 

05 0095B 
05 0095C 
05 0095D 
05 0095E 



'35 
35 
35 
35 
35 
35 
35 



2^500002 A 

214FFFFF A 

6*3on95B 
22500004 A 

3$F ncCl 02 
22400001 A 
206FFFFF a 

6*0008BD 



05 0095*- 

05 C095F OU 

05 0095F I OU 

05 0095F 2 1*3 

05 0095F 3 

05 0095F 3 0** 

(35 00960 6 D 

05 00960 1 5fc 



OOOOOCO^ 



05 
00961 
00961 
00961 
00961 
00961 
00962 
00962 



00961 
00 



00 
00 

00 
O^ 
0« 



# 
* 
GP66 



DATA ERRPil 

B MASTERPARSER 

N8 »-' FOLLOWS FIRST: FINISH UP 

LlsP\ SEG 

CI#X2 «1 

BNE »+2 

Ll/Pl INTQ 

STW^Oi PARAMBUF 

Ll*X? i 

Al#P2 ml 

B GETNEXT$FINISH 
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GO T6 PARSER 



SET TYPE«MNTGi OR tSEQ» AS APPRtf 



PUT VALUE IN PARAMBUF 

SET PARAMBUF SIZE • j, 

SET CHAR PSN TO «ESCAN LAST CHAR 

GO FINISH UP 



« 

# 
GPTBL 



TABLE OF LEGAL ' GETNEXTPARAM » MATCH CHARS 



GPTBLSZ 



FGU $ 

DATAii o 

DATA,1 CR 

DATA, i if 

DOl MODE.? 

DATAm ff 

DATAm CM 

DATAji SC 

FQU BA($)«BA(GPTBL)-1 

BOUND 4 



(FILLER) 
01 C/R HIT 
0! LINE FEEP HP. 

0! FORM FEED HIT 
7 J COMMA 
8! SEMICOLON 



TABLE OF TYPFS CORRESPONDING TO LEGAL CHARS 



GPTYTBL 



ECU 

DATAjl 
DATAjI 
DATAm 
DOl 

DATA* l 
DATA# i 
DATAm 







MODE"? 


(FILLER) 
01 C/R HIT 
0! LINE FEEP HIT, 



7 
8 


OJ FORM FEED HIT 
7 J COMMA 
8J SEMICOLON 
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4?69 B8UND 4 



WOI 20*44 SEP 08* '75 
4270 
4271 
427? 
4273 
4274 
4275 
4276 
4277 
4?78 
4279 



4280 
4281 
4282 

4283 
4284 
4285 

4287 
4288 
4289 

4290 
4291 
4292 
4293 
4294 
4295 
4296 

4297 



05 
05 00963 
OP 00^64 
05 00^65 
05 00 9 66 
05 0C967 
05 00968 
OF 00969 
O 8 ? 0096A 
05 00968 
05 0096C 
05 0096D 
0«5 0096E 
05 0096F 
05 0097Q 
05 00971 
05 00972 
05 00973 
OB 00974 
05 00975 
05 00976 
05 00977 



00963 

Q£20f>020 A 
0»5oni9C Q2 
2&50DC08 A 
4^500048 02 
2&500008 A 
4»5EnC0O A 
BbSOOOAC 02 
326E0000 A 

2U600003 A 
2&60O07F A 
F5>600CAC 02 
4 d 50OO05 02 
2U50D100 A 
B&5C00AC 02 

2*500000 A 
6*000974 

BSSCOCAC 02 
6*600973 

0*200020 A 

0A50O19C 02 

6«0EOO01 A 



PAGE 

# CREATE NEW ENTRY IN cDT # 

# Pi - NUMBER QF COMMAND T8 ADD * 

# W©RD AFTER BAL § NUMBER 6F PARAMETERS * 
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KEWCDTENTRV 

PUSH 

SLSjPl 
SR/Pl 

SLS,Pl 

8R/P1 

STWiPl 

L*> p 2 

Al#P? 

SLSjP? 

STBjPg 

AND* Pi 

AliPl 

STWjPi 

LI#P1 

B 

STw#Pl 
BDR/P2 
PULL 



B 



ECU $ 
(P1#P?) 

8 

CDT 

8 

0#LNK 
•CDTADR 

o,ln< 

3 

•1 

♦CDTADR 

XFFOO 

XtOlOO' 

♦CDTADR/P2 



**2 

*CDTADR#PP 

• •1 

(P1#P?) 

i^lnk 



SAVE REGS 

BUILD C8NTR6L W6*D ©F ENTRY! 

BYTE 0« LENGTH eF ENTRY <»0> 

BYTE 18 C6MMANP * 

BYTE 2$ * &F E N TRY IN CDT 

BYTE 31 * &F PARAMETERS 
COMPUTE LENGTH 8* ENTRY ■ 

(# 9F PARAMETERS)/8*1 

PUT THIS IN BYTE 

BUILD IEND 6F CDTf MARKER USING 

NUMBER 6F NEXT LMND In CDT 
PUT IT AFTER PARAM C8NTR9L HW'S 



SET ALL PARAM C©N T R8L HW f S T8 ZEK8 

REST8RE REGS 

EXIT 



HOI 



20144 SEP 08j 


»75 
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4298 








PAGE 








4299 








*«##«#•♦«*«#«*#«#*###***#««*###«*«###*#*#*»**### 


43C0 








# ADJUST ALL FLAG 




* 


4301 








# PI ■ COLUMN 


NUMBER T8 


RESUME 


MATCHING AT ♦ 


4302 








«««««*•«*##«*««*«#«##*#«*«#*##*«#*#•*#«#*##«**«« 


4303 








« 








43C4 








« 








4305 


05 


0097» 




ADJUSTALLFLAG 


ECU * 






4306 


05 00978 


3300O0P0 


02 


MThjQ 


ALLFLAG 




IS ALLFLAG 8N 


4307 


05 00979 


6»1E0000 


A 


BLZ 


OANK 




nb - EXIT 


4308 


OS C097A 


3^5onC20 


02 


STWjPj 


ALLFLAG 




YES «• SET IT T8 C6L. T» KESUME MATCH 


4309 


OB Q097B 


6*OEOCOG 


A 


B 


0*LNK 




EXIT 



HOI 20*44 SEP C8# »75 
4310 
4311 
431? 
4313 
4314 
431S 
4316 
4317 
4318 
4319 
4320 
4321 



4322 

4323 
4324 



4325 
4326 
4327 
432g 
4329 

4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
434? 
4343 
4344 



05 
0* 0097C 
05 0097D 
05 Q097E 
05 Q0 9 ?P 
C5 00^80 
OB C0981 
05 00982 
05 00983 
05 00 9 84 
05 00^85 



05 00^86 
05 00^87 
05 00 9 88 
05 00 9 89 
05 CO^SA 
05 0098B 
05 C098C 
05 C098D 
05 0098E 
05 0098F 



0097^ 

0^200020 

o^sooisc 

2150O08C 
6 y 100986 

2^ B 00C00 
2*C0O00O 
220FFFFE 
1<*00019C 
0*200080 
6**OEOOOO 



A 

02 



A 
A 
A 

02 
A 

A 



2*800000 A 
3l5 00Bl 02 
6S*2on993 
3^000023 02 
6*30099E 
2*C0O000 A 
22600040 A 
716A0024 02 
6*300997 
2U80O001 A 



PAGE 



2*0 



ANALYZE C8MPRSI 
PI ■ COLUMN A 
Rl (BP 8FF) - 
»i (BP 8N) ■ 
R2 (BP 8FF) ■ 



R2 



TIPN ©F FIELD T8 RIGHT 

T WHICH T8 START ANALYZE 
NUMBER 8F N8N*BLANKS T8 1ST BLANK 
NUMBER 8F CHARS T6 LAST N8N. BLANK 8N CARD 
NUMBER 8F BLANKS CD FR8M 1ST BLANK T8 NEXT 

N8N. BLANK 
NUMBER 8F TRAILING BLANKS 8N CARD 

IAL Pl>END 8F BUFFER, CCl«0 8TMERWJSE 



(BP 8N) 
* CCi"l IF IMT 

* 

ANLZRIGHT 

PUSH 



EQU i 
CP1#P2> 



CI, Pi 

BL 

LI#Ri 

LI*R2 

PURGE 

LCI 

b 



MAXCLMN 

AR10 





tp\s?9) 

8 

O'LNK 



SAVE REGS 

IS START 8F FIELP PAST END 6F BUFFER 
N8 - G8 8N 
SET Rl«R2»0 

YES • CL^AR stac k 

SET CClil 
EXIT 



# 
« 
* 
AR10 



TEST BP FLAG, IF 8FF CALC RipNUMB£R 8F N8N. BLANKS 



ARicA 



Ll#Rt 
CW,Pi 

BG 

MTWjo 

BNEZ 

LI,R2 

Ll#P2 

C&*P? 

BE 

Al,Rl 



E8DCLMN 

AR12 
BPFLAG 

AR20 

f ? 

CARDIMG/Pi 

ARl5*l 

1 



SET RlfO 

IS START 8F FJELP PAST LAST N8N.&LNK 

N8 - IS BLANK pREg, 8N 

N8 • SET R2»0 

IS CHAR AT PIpBLAnK 
YES • G8 C8UNT BLANKS 
N8 • INCR Rl £ PX 



Hfll 



?0 
4345 

4347 

4348 
4349 

4350 
4351 
435? 

4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
436P 
4363 
4364 

4365 
4366 
4367 
4368 
4369 
437c 
4371 
437? 
4373 
4374 
4375 



S44 SEP C%* 
05 0099Q 
05 00991 
05 00992 



05 00993 
0? 00994 

05 00995 



Og 00996 
05 00997 
05 00998 
05 00999 



05 0099A 
05 0099B 

05 0099C 
05 0099D 



05 0099E 
05 0099F 
05 C09AQ 
05 009A1 

05 C09A2 
05 C09A3 



»75 

2U50OC01 A 

315oocBl 08 
6«2oo98D 



8<iCono8C A 
3«ConC05 A 
6*00099A 



2UC00001 A 
2W50O001 A 
716AO024 02 
6*300996 



0*200020 A 
QA50019C 02 
C2200000 A 
6*0EnCOO A 



38B0O0B1 02 
3^Boo005 A 
2V»00001 A 
2^Cqoo8B A 

3aconcBi 02 

6*00099A 



CW>Pi 
BLE 



221 



1 
E©DCLMN 

ARlQA 



IS Pi PAST LAST NftN*BUNK 
N© • C©NTINUE SCAN 



# NOW PAST LAST N©N«8LANKj cALC R?»MJMBER ©F BLANKS T© END 

AR12 LI#Rp MAXCLMN CALC RgiDlSTANCE FRQM p 4 T© END ©F 

Pi BUFFER 



S*#R2 
B 



AR1S 



G© EXIT 



# AT END ©F N©K.BLAN'KSj C8UNT BLANK FIELD 
# 

AR15 Al,R? 1 

Al#Pl 1 

CB*P2 CARDlMG#Pl 

BE AR15 
* 

# EXIT WITH CC1»0 
# 
AR18 PULL (Pl#P?J 



INCR R2 & Pi 

IS CHAR AT P1«BLANK 

YES • KEEP C©UNTJnQ BLANKS 



REST©RE REGS 



LCI 

B 




0#LNK 



# BP FLAG ©N, CALC Rl S Rg 



* 
AR20 



LWiRl 
SWiRi 
AliRl 
LI#R2 
S^#R2 
B 



EBDCLmN 

Pi 

1 

MAXCLMN.i 

E©DCLMN 

AR18 



SET CC1«0 
EXIT 



CALC RuDISTANCE f^©M Pi T© LAST 

N©N*BLANK 

CALC RENUMBER ©F TRAILING BLANKS 
G© EXIT 



MCI 



20 J 44 
*376 
4377 

4378 

4379 
4380 
4381 
438? 
4383 
4384 
4385 
4386 
4387 



4388 
4389 

4390 
4391, 
439? 
4393 
4394 
4395 
4396 
4397 
4398 
4399 

4400 
4401 
440? 

4403 

4404 
4405 
4406 
4407 
4408 
4409 
4410 



SEP 08m »75 



05 0Q9A4 

35 009A4 0*4oni9C 02 

'35 009A5 0*200020 A 

05 009A6 0»70019C 02 

3? 009A7 288onOOO A 

35 009a8 3«f50f>020 02 

35 009A9 6*l009CC 

35 009AA 3a5or>oB7 02 

35 009AB 22300003 A 

35 009AC F28600AC 02 

35 009AD 2X800002 A 

35 00 9 AE 6*2on9Cl 

35 OO^AF 2«J300004 A 

35 QO^Bq 2««00001 A 

35 OO^Bi F«!46noAC 02 

35 00982 2*300005 A 

35 00*83 21400005 A 

35 009B4 6»3on9CD 

35 009B5 F<i460CAC 02 

35 009B6 B85800AC 02 

5 009B7 2U5FFFFF A 

35 009B8 3i5oocB7 Q2 

35 009B9 6*lon9EC 

35 009BA 3X5000BB 02 

35 009BB 6*l0O9E9 

35 0098C 2«60n001 A 

35 009B0 22300006 A 



PAGE 

#####**#***####««*#««*«##•#*«##*###«#«##*««##♦«### #««*# 

* EVALUATE First PARAMETERS F8R INTRALINe COMMANDS * 
« COTADR « ADOR 8F CURRENT COMMAND IN CDT * 

* RESULTS? Pi m C6LUMN COMPUTED FR8M PARAMETERS # 

* Pp ■ WIDTH 8F FIELD AT THIS C8LUMN # 

* X1 ■ POSITION 8F NEXT CDT C8nTR©L BYTE ♦ 

* CC1«1 IF Nfi COLUMN FOUND* CCl.O OTHERWISE # 
######♦##♦####♦*♦#####♦######♦#############♦###♦♦###### 
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FINDC8LUMN 

PUSH 



Ll/Tl 
LW#P1 

BC3EZ 

LW#Pi 

LI#Xi 

LB#Tl 

CliTl 

BG 

Ll#Xi 

Ll#Ti 

L8#X? 

LlfXl 

CIjX? 

BE 

LB # X? 

LW/P1 

Al/Pl 

CW#Pi 

BL 

CW#Pi 

BGE 

LI#P? 

LX#Xi 



EOU * 
Xg#(LNK#T1.) 





allflag 

FC15 

FRSTCLMN 
3 

♦CQTADR/X1 
2 

FC10 
4 

1 

♦CDTADR#Xi 

5 

STRG 
FC15A 
#CDTADR # X1 
♦CDTADR#X2 

•1 

FRSTCLMN 

FC45 

LASTCLMN 

FC^O 

1 

6 



SAVE REGS 



SET Tl,ALL OCCURRENCES 

Pi»C6Lt T8 START MATCHING AT 
IS SYSTEM IN ULLt MODE 
NO - SET Pl*C6L» T6 START AT 
GET NUMBER OF PA«AMS IN CDT 

ARE THERE > 2 PAKAMS 



NO . GET PARAMi TyPE 

IS IT A STRING 

YES • F8RM IS? /St/ X - 

N8 - F8RM ISI C X . 

GET C8L. * FROM CDT 

ADJUST T& INTERNAL C8L. * 

IS IT BELOW C8L» T8 START AT 

YES • ERROR 

IS T8 BEY8ND C8L« T8 ST8P AT 

YES • ERR8R 

N8 • SET FIELD WIDTH - 1 

SET NEXT CDT CTRL BYTE ■ 6 



M01 



20 

441? 

4413 

4414 
4415 
4416 
4417 
4418 
441«9 
4420 
4421 
442? 
4423 
4424 
4425 
4426 
4427 

■* *T iffo 

4429 
4430 
4431 
443? 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
444£ 
4443 
4444 
4445 
4 44fe 

4447 



$44 SEP 08* 
05 CC9BE 
05 0098F 
05 CO^Co 



05 009C1 
05 OO^Cg 
05 C09C3 
05 009C4 
05 C09C5 
05 0O^C6 
05 009C7 
05 009C8 
05 009C9 
05 OO^CA 
05 C09CB 



05 

05 

05 
C5 

05 

05 
05 
05 
05 
05 
05 

05 
05 

CS 
C5 
C5 
C5 



009CC 
009C0 

009CE 
OO^CF 

OO^Do 
009D1 

009D2 
00^03 
0C9D4 
00^05 
009D6 
009D7 
009D8 
009D9 
009QA 
OO^DB 
009DC 



»75 

3^1omA4 02 
3'3loniA2 02 
6«00O90D 



2*300005 A 
F*46noAC 02 

B^ssnoAC 02 

21800000 A 

6*2or>eCC 

3*000021 02 
6*3009CC 
6^700D8F 
OUOOOlBF 02 
3JloncB2 02 
22800001 A 



2*300007 
F£66ooAC 

3U6000AC 
6^7on9EF 
6*8on9E2 
3JF C fil9F 
3*500008 
2U500C01 
648009CF 
3310019F 

331001A2 

21800000 
6»l0O9DA 

3b50n020 
2U5FFFFF 
F2600006 
2U30O001 



A 

02 
02 



02 

A 

A 

02 
02 
A 

02 
A 
A 
A 



MTWjt ZEROjSTGjFLG 
M7W#i TXFLAQ 
B FC20 



DONtT OUTPUT '0 STRINGS! 
BUT TYPE IF f TXt COMMAND 
GO EXIT 






* THERE ARE 3 PARAMETERS! GET OCCURRENCE » COUNT 



FC10 



Ll#Xi 
LB,X£ 

L>,T1 
Cl*Tl 

BG 

MTW# 

BEZ 

BAUINK 

DATA 

MTWji 

Llsli 



♦COTAORjXi 

♦COTADR/X? 



FC15 

ALLOK 

FC15 

TYPECERR 

ERRC7 

ERRORCNT 

1 



SET Ti«eCCURR£NCE CNT IN COT 

CHECK IF ALL IS IFGAL FOR THIS 
COMMAND 



ALLOW ONE M0RE CERR 
SUBSTITUTE 1 



♦ FIND CORRECT 
• 

FC15 LliXi 
P"Ci5A LB,Pjp 

AW,Pj? 

BALiLNK 

BCSiS 

MTW*«i 

LWiPi 

AliPl 

8DR # Ti 

MTWji 

MTW,1 

CI#Tl 

BGE 

STW#Pl 

AIjPI 

LB#Pp 

AI#X1 



OCCURRENCE Of STRING IF IT EXISTS 



#CDTADRiX t 
CDTADR 

FINDMATCH 

FC30 
CHGJSTGJCNT 

Rl 
1 

ffe*5 

CHGJSTGICNT 
TXFLAG 


♦ ♦2 

ALLFLAG 
-1 
*P2 
1 



SET P?iABSOLUTE AQDR OF PARAM2 

STRING 
FIND MATCH FOR STRING 
IF NONE • ERROR 

SL8PY WAY OF FIXING THIS PROBLEM 
SET Pl*COLt TO RESUME MATCHING 

LOOP IF NOT ON CORRECT OCCURRENCE 
INCREMENT COUNT M^RE 
SET *TX f FLAG 

IF TUOi 'ALUf MODE IS ACTIVE; IN 
THIS MODE AULFLAG>wO 

SET PltCOLUMN OF MATCH 
PgnLENGTH OF STRING 

Xl.NEXT CDT CONTROL BYTE 



Hoi 20144 SEP C8# * 75 
4448 
4449 

4450 
4451 



224 



445? 
4453 
4454 
4455 

4456 
4457 

4458 

4459 
4460 
4461 
4462 



4463 
4464 
4465 
44 ©6 
4467 
446g 
4469 
4470 
4471 
447? 
4473 

4474 
4475 
4476 



05 009DD 
05 009DE 
05 OC^DF 
05 009EQ 
05 QO^El 



0"? C09E2 
05 009E3 



05 009E4 
05 OO^ES 
05 00*E6 
05 00 9 E7 
05 C09E8 



05 009E9 
05 OO^EA 
05 Q09EB 



05 009EC 
C5 009ED 
05 CO^EE 



0^200020 A 

A 7Qnl9C 02 
0&40019C 02 
0^200000 A 
6*0EO0OO A 



288FFFFF A 
3»8qoc20 02 



0*20OO2O A 
0*7ool9C 02 
0*40Ol9C 02 
0*200080 A 
680EOOOO A 



6*70ftD8F 
00000188 02 
6»0009E4 



6A700D8F 
OOOOniCC 02 
6&0009E4 



FC20 



EXIT WITH CCino 

PULL X?*(LNKjTI) 



LCI 
B 




O^LNK 



RE9T8RE REGS 



EXIT WITH CCifO 



♦ Ne match found: if in 'all* mqde, exit »aLL» mode' otherwise* e«R9r 

« 



FC30 



Ll'Tl 

STWiTl 



•1 
ALLFLAO 



TURN 8FF ALL M0DE. 



* EXIT WITH CCi»l 

FC35 PULL X?j(tNK*Tt) 



LCI 

B 



g 

0#LNK 



REST8RE REGS 



EXIT WITH CC1.1 



* ERR8RJ COLUMN NUMBER BEY8ND C8LUMN T8 ST8P AT 
• 

FC40 BALiLNK TYpECERR TYpE! 1 ••CN JC8L>LIMIT f 

DATA ERRC6 

B FC35 G8 T8 EXIT 

« 

# ERR8RS C8LUMM NUMBER BEL8* C8LUMN T8 START AT 
# 

FC45 BAL#LNK TYPECERR TYPEJ f «»CN JC8L<L ItflT t 

DATA ERRClo 
B FC35 G8 T8 EXIT 



Mel 20844 SEP 08# »75 
4477 

4478 
4479 
4480 
44£1 
448? 
4483 
4484 

4485 
4486 

4487 
4488 



4489 

4490 
4491 
449? 

4493 

4494 

4493 
4496 

4497 

4498 
4499 

4500 
4501 
450? 

4503 
4504 
4505 
4506 
4507 
4508 

4509 
4510 



'35 
'35 
35 
35 
35 
35 
35 
35 
35 
35 
35 



05 
Q09EF 

0O9F0 
0C9 p l 
C09?2 
0O9F3 
009F4 
009F5 
009F6 
009F? 
C09F8 
009F9 
C09FA 



(35 009F5 
05 009FC 
05 009FD 
05 009FE 
05 009FF 
05 OOAOO 
(35 QC*01 
05 00 A C2 
05 00AC3 



009EI- 

0*20D070 A 
0°30ni9C 0? 
3b60Ol75 08 
3aBonoBB 02 
F*600175 02 
3*800006 A 
3^Boni68 02 
3150M68 02 
6«20O9F8 
220FFFF9 A 
1300019C 02 
6»0OOA04 



2*300001 A 
F2860175 02 
718A0C24 02 
6*30nA06 
2U500001 A 
3X500168 02 
6*2009FD 
0*200070 A 
0A30O19C 02 



PAGE 



2*5 



find matching string qn card 

Pl « C81UMN at which Te start search 

P2 • ADDR F>F TFXTCSTRTNG T8 MATCH 
*1 * COLUMN AT WHICH MATCH 8CCURRED 
CClfO IF MATCH F8UND# CCipl IF N8 MATCH 






FINDMATCH 



PUSH 

STWjPg 

LV«#Ri 

LB,P2 

SW'Rl 

STWjRl 

CW#Pi 

BLE 
PURGE 

B 



SOU $ 
(X1#T?) 

tfxtcaor 
lastclmn 
♦textcadr 

P2 

ST8PCLMN 
ST8PCLMN 
FM10 

cxi/Ta) 

FM15 



SAVE REGS 

SAVE ADDR 8F TEXTC»STRlNS 
CALCI ST©PCLMN»LAST C8L» * AT WHICH 
MATCH CAN TA<E P LACE 

IS INITIAL CSL.«STBPCIMN 
YES • CLEAR STAC* 
G8 EXIT WITH CCl'l 



* GET 1ST CHAR 8F TEXTC»STRINQ AND SEARCH F8R IT IN CARD 

# 

FMiO Ll#Xi l SET TmST CHAR t?F TEXTC-STRJNG 

lb,ti *textcadr,xi 

FM10A cB#Tl CARDlMCuPl D8ES 1ST CHAR MATCH CHaR 8N CARD 

BE FM20 YES • G8 C8MPARE REST 

FM10B AI#P1 1 N8 • INCR T8 NEXT C8LUMN 

CW#Pi ST8PCLMN IS NEW C8LMN>ST9PCLMN 

BLt FM10A N8 • G8 C8MPARE M8R£ 

PULL (Xl/T?) YES m REST8RE RE^S 



EXIT WITH N8 MATCH F8UND (CCl»l) 



HOI 



2014 


4 5 


SEP 08# 


'75 












4511 










* 








451? 


05 


00*0 


02200C80 


A 


FM15 


LCI 


I 


4513 


0* 


00*05 


6»oFnooo 


A 






B 


O'LNK 


4514 










« 








4515 










« 


1ST 


char match 


FByND* N'8ui C 


4516 










# 








4517 


05 


00*06 


283onooi 


A 


FM20 


LIjXI 


1 


4518 


05 


00 A C7 


32400005 


A 






tw#x? 


p| 


4519 


0* 


OOAOg 


F^600l75 


02 






L8#P? 


#textcaor 


4520 


05 


00A09 


206FFFFF 


A 






Al#P? 


• 1 


*52i 


05 


QO*OA 


6*300A11 








BEZ 


FM30 


452? 


05 


00 A B 


2U30O001 


A 


FMgQA 


ANX1 


1 


4523 


05 


QO A OC 


2U4onooi 


A 






Al#Xg 


1 


4524 


05 


OOAOD 


F296D175 


02 






LB*T? 


♦TEXTCADRjXI 


4525 


05 


Q0 A CE 


7i98n024 


02 






CB#T? 


CAROlMGiX? 


4526 


05 


00 A F 


6*3oo9 F F 








BNE 


FMlOB 


4527 


05 


00 A 10 


6^6onAQB 








BCR*Pp 


FM20A 


4528 










# 








4529 










# 


EXIT 


WITH MATCH F8UND <CCl» 


4530 










« 








4531 


05 


00*11 


32B00005 


A 


FM30 


LWiRl 


PI 


4532 


05 


00 A 12 


217Q05AF 








Cl/LNK 


FNDTVP+i 


4533 


05 


00 A 13 


6&300 A l5 








BE 


• ♦2 


4534 


05 


0CA14 


3310M9F 


02 






MTWjI 


chgjstgjcnt 


4535 


05 
05 


00 A 15 
00 A 16 


0^200070 
A 30019C 


A 

02 






PULL 


(Xl#T2J 


4536 


05 


0OA17 


0*200000 


A 






LCI 





4537 


05 


00 A 18 


6»OEOCOO 


A 






B 


0#LNK 



226 



EXIT WITH CClfl 



SET X1.P68ITI6N IN TEXTC'STRINQ 
XgiC^Li * BN CARD 
P2«# BF CHARS ye C6MPARE 

IF STRING IS 1 CH A R LBNG • EXIT 
INCR Xi & X2 

D6 2 CHARS MATCH 

NB - GB START 1ST CHAR SEARCH AGAIN 
YES • LBBP UNTIL CBRRECT # MATCH 



MATCH FSUND • SET Rl*CBL» * SF M A TcH 
IF I CAME FRBM A FTjFD BR FS TYRfc 6F 
CBMMAND D6NtT JNCFRMENT CHGjSTGjCNTt 
C6UNT THE NBt BF HITS. 
RESTBRE REGS 



EXIT WITH CC1-0 



HOI 20!44 SEP C8# '75 
4538 
4539 
4540 
4541 
454? 

4543 

4544 

4545 

4546 05 OCAl* 

4547 



227 



4548 
4549 

455C 
4551 
455? 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
456c 
4561 

456? 

4563 

4564 
4565 

4566 
4567 

4568 
4569 
4570 
4571 
457? 



05 00A19 
05 OOAlA 
05 OOMB 
05 00 A lC 
05 0OA1D 
05 OOAIE 



05 OOAlF 
0? 00A20 
05 00A?1 

0? oo A 22 

05 C0 A 23 
05 C0 A 24 
05 00 A 25 



05 00A26 
05 00A27 

05 00A28 



05 C0A29 
05 0QA2A 
05 00 A 2B 



Q*2ono5o A 
0»30019C 02 

pS60flC02 A 
723C0C00 A 
2150008C A 
6«looA2B 



2U60nO01 A 
7«4C0C00 A 
7b4A0C24 02 
2U50O001 A 
2150O08C A 
6**ionA29 
643onAlF 



0^200050 A 
0A30O19C 02 
6*0EoCO0 A 



2U3FFFFF A 
6*3onA26 
2^400040 A 



PAGE 

* M8VE STRING T8 CARD * 

* Pi ■ CeiUMN AT WHICH T8 PUT STRING * 

* Pg ■ ADOR RF TFXTC-STRING T8 M8VE # 

# 



MdVESTRING 

PUSH 

SLSjPj? 
LB^Xi 

CIjPl 
BGE 



ECU $ 
(X1#LNK) 

2 

0# p 2 

maxclmn 

MS20A-1 



SAVE R£GS 

CONVERT P2 T8 A bVTE ADDR 

SET Xi*# 8F CHARS T8 M8VE 

IS STARTING CQLt BeY8ND END 8F CARD 

YES • G8 CHECK 



* M8VE CHAR FRAM TFXTC-STRTNG T8 CARD 

# 

MSB Al#P2 1 

LB#X? 0/ P2 

STB,X? CARDlMGjPt 

Al>Pl 1 

Cl/Pl MAXCLMN 

BGE MS20 

BDRjXi MS5 



INCR T8 NEXT TEXTC-STRlNB CHAR 
M8VE CHAP T8 CARD 

INCR C8LUMN 

HAS END 8F BUFFER BEEN PASSED 
N8 - L88P UNTIL ALL CHARS M8VED 



* EXIT 

# 
MSlO 



PULL 
B 



(X1#LNK) 
OiLNK 



REST8RE REGS 
EXIT 



# AT END 8F BUFFER? IF h8RE N8N»BLANKS T8 M8VE, TYPE ERR8R MESSAGE 

# 

*S20 Al/Xl -1 END ©F BUFFER: ARE THERE M8RE CHARS 

BEZ MS10 T8 M8VE 

LI/X? 



t f 



Hcl 20844 SEP 08/ '75 

4573 OF 0QA2C 2U6on001 A PSgoA Al#P? 

4574 05 0G A 2D 7X4CO00O A CB,Xg 
457*5 05 00 A ?E 6»3onA3l BNE 

4576 OP OQAgF 643onA2C BDRjXt 

4577 0* CO A 30 6«00f)A26 B 

4578 05 00 A 31 6A7onD8F KS20B BAULNK 

4579 0« 0OA32 0UO0O1A5 02 DATA 

4580 05 00A33 6»00OA26 B 



1 

0#R2 

MS20B 

MS20A 

MSIQ 
TYPECERR 


228 

YES • IS NEXT CHAR 8F TEXTC-STRING 

A BLANK 
N8 - TYPE ERR8R *SG 
YES • L88P UNTIL ALL CHARS CHECKLD 
ALL BLANKS . Qd EXIT 
TYPE* f»«CNlOVERFLew» 


ERRCl 
MSlO 


G8 EXIT 



NCI 2C»H SEP 08# *75 
4581 
458? 
4583 
4584 
4585 
4586 
4587 
4588 
4589 



4590 
4591 
459? 

4593 
4594 
4595 
4596 
4597 

4598 

4599 

4600 

4601 
460? 
4603 

4604 
4605 
4606 
4607 

4608 

4609 

4610 
4611 
461? 
4613 
4614 
4615 
4616 



OF 
05 
05 
05 

05 

/> eg 

w I? 

05 
05 
05 
05 
05 



05 
C0A34 

00*35 
00A36 
00 A 37 
00 A 38 
OOA39 
00 A 3A 

00*38 
00A3C 
00A3D 

00A3E 



05 C0 A 3F 
05 0OA40 
05 00 A 41 
05 0OA42 

0^ 00 A 43 
05 00A44 



05 00A45 
05 00 A 46 
05 00 A 47 
05 00 A 48 
05 0OA49 
05 00A4A 



00A34 

0*200040 A 
0°3oni9C 02 
2*500000 A 
2860O08C A 
F24600AC 02 
6»30OA3F 
2U30OC0l A 
F*46noAC 02 
8S58D0AC 02 
2U5FFFFF A 
2U3FFFFF A 



2U3of)G02 A 
F24600AC 02 
6»3onA45 
2U30O001 A 
F24600AC 02 

B2680CAC C2 



3&50O0B7 

3b6 noBB 

31500006 
6»lonA50 
21500000 
6^l0OA50 



Q2 
02 
A 



PAGE 

# PR6CFSS C9LUMN NUMBER PAIR # 

* Xi ■ L8C 8F NEXT PARAMETER C8NTR8L BYTE IN CDT ♦ 

* 



229 



PR8CESSCeL*PAIR 
PUSH 

LliPl 
LI#P? 
LB# X£ 

be* 
AI/X1 

L8,X 2 

L>#Pl 
Al/Pl 

Al#Xt 



ECU * 
(XliP?) 



MAXCLMN 

#COTAOR#Xi 

PP10 

1 

•CDTADRiXi 

*CDTAOR#X? 

•1 

-1 



SAVE REGS 

set PitDFLT starting c»l» # 

P? S DFLT STOPPING CBL» # 
GET NEXT PARAM TYPE 
IS PARAM PRESENT 

YES • SET PifSTAHjING C8L # 

ADJUST T& INTERNAL COL * 



PR6CFSS SECBMD C81UMN NUMBER PARAMETER 



# 
PP10 



AliXl 

LB#X2 

BE2 

Al,Xi 

LB#Xp 

L>#P2 



#CDTADR#X1 

PP20 

1 

*COTADR#Xt 

*CDTAOR#X? 



GET NEX PARAM TY^E 
IS PARAM PRESENT 

YES • SET P?iST8PPING C8U * ♦ 1 



# 

# FINISH INITIALIZATION AND EXIT 

* 

PPgO 



STWjPi 

STW^Pg 

CW#Pl 

BGE 

CI/Pl 

BL 



FRSTCLMN 

LASTCLMN 

P? 

PP25 



PP25 



SET STARTING AND ST8PPING C8t #»S 



HOI 2014* SEP 08* » 



2^0 



4617 


05 00A4B 


2160OC8C A 


Cl$P? 


maxclmn 


4618 


05 00 A 4C 


6^2onA50 


b& 


PP25 


<*619 


05 0O A 4D 
05 00A4E 


0<J20O040 A 
0A30O19C 02 


PULL 


<Xl#P2> 


4620 


05 00 A 4F 


6*0EOCOO A 


B 


o*L NK 


4621 




• 






462? 


05 0OA50 


6*70OPC4 PP25 


BAL#LK'K 


TVPEMSQ 


•KSCj 


05 00A51 


0U0Q01D0 02 


DATA 


ERRCll 


4624 


05 0OA52 


2«J70O000 A 


LliLNK 





4625 


05 00A53 


3b7onoE9 02 


STWjLNK 


SETFLAG 


4626 


05 00 A 54 


3&7QM67 02 


STWjLNK 


stepflag 


4627 


05 00A55 


6^000004 


B 


MASTERPARSER 



REST8RE REGS 

EXIT 

TYPEl '-BAD C9L» N8t PAIR' 



HOI 



2014* < 


SEP 08* 


♦75 










4628 












PAGE 




4629 










#««•#***#*#*###*«##**#*«*«*#*####*# 


4630 










# FIND 


C81UMN PF 


LAST N8N*BLANK # 


4631 










*#«*««*«*«*«*«#**#««***«#««««**»*## 


463? 










# 






4633 










« 






4634 




05 


OOASfc 




5ETE8D 


FGU 


* 


4635 


05 


00 A 56 


33ooniAo 


02 




MTW#0 


RP$FLA6 


4636 


05 


GC A 57 


6*3Eocoo 


A 




BEZ 


0#lNK 


4637 


05 


0OA58 


02200020 


A 




PUSH 


<X1*X?> 




05 


00*59 


0»3oni9C 


02 








4638 


05 


00 A 5A 


2^300022 


A 




LX#Xt 


MAXCLMN/4-1 


4639 


05 


OGAkB 


3&40000A 


02 




LW#Xg 


4BLNKS 


4640 


\j s 


Q0*5C 


31460024 


02 




C*>X2 


CAR0IMG#X1 


4641 


05 


00 A 5D 


6*3onA67 






BNE 


SRS10 


464? 


05 


00A5E 


64300A5C 






BDR*Xl 


$•2 


4643 










* 






4644 










# 






4645 


05 


00A5F 


2*300003 


A 




LI#X1 


3 


4646 


05 


00 A 60 


71460024 


02 


SRS5 


CB,X? 


CARDlMG#Xt 


4647 


05 


00 A 61 


6 y 30OA6A 






BNE 


SRS15 


4648 


05 


00 A 62 


64300A60 






BORiXi 


• •2 


4649 










# 






4650 


05 


00 A 63 


71400024 


02 




C8,X 2 


CARDIMG 


4651 


05 


00 A 64 


6y30OA6A 






BNE 


SRS15 


4652 


05 


C0 A 65 


2*3FFFFF 


A 




Ll/Xi 


• 1 


4653 


05 


00 A 66 


6*00OA6A 






B 


SRS15 


4654 


05 


00 A 67 


2&30O002 


A 


SRS10 


SlS#Xi 


2 


4655 


05 


00 A 68 


2^300003 


A 




Al#Xi 


3 


4656 


05 


Q0 A 69 


6&00OA6O 






B 


SRS5 


4657 










* 






4658 


05 


C0 A 6A 


3&3onoBl 


02 


SRSJ5 


STWiX! 


E80CLMN 


4659 




00A6B 


2U300001 


A 




AI#X1 


1 


4660 


05 


C0A6C 


3b30OCE7 


02 




STW#X1 


RECSIZE 


4661 


05 


00 A 6D 


0^200020 


A 




PULL 


(Xl#X?) 




05 


C0 A 6E 


A 30Ol9C 


02 








4662 


05 


C0 A 6F 


6»0E0C00 


A 




B 


0*LNK 



231 



CHECK RECORD PRESERVATION 
i8N*# D8NT CHANGE RECSlZE 
SAVE REGS 



HAKE Gr8SS C8MPANIS8N F8N ALL 
BLANK w6RDSt 



CHECK FIRST W6RD BY QYTE» 
ITERATE THR8UGH BYTES &F 
TARGET W8RDt 



CHECK FIRST BYTE 8F FIRST W8RD# 
F8R BLANKt 

IF BLANK* REC9RD SIZE #0« 

REVERT T8 BYTE INDEXING* T8 GET 
BYTE WITHIN W8RD« 



SAVE ENDING C8LU"N (BYTE INDEX) 
AND REC8RD SIZE » TRUE BYTE C8U N T 

EXIT 



HOI 20S44 SEP 08* «75 
4663 
4664 
4665 
4666 
*667 
4668 
4669 
4670 
4671 

467? 05 00A7U 

4673 



4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
468? 

4683 
4684 
**685 
4686 
4687 
4688 
4689 
4690 
4691 

469? 

4693 

469^ 

4695 
4696 
4697 
4698 



OS 00 A ?0 
OS OOA7I 
OS 00*72 
OS 00 A 73 
OS 00 A 74 
0? Q0 A 75 



OS 00 A 76 
OS 00 A 77 
OS 00 A 78 
Og 00 A 79 
OS 00 A 7A 
05 00 A 7B 
OS 00 A 7C 
0* 00 A 7D 
OS 00 A 7E 
OS 00A7F 



05 00 A 80 
05 OOArI 
OS 00A82 
OS 00 A 83 



0*200080 A 
0»50019C 02 
3U5oro06 A 
6 A 7on97C 

6*8 oA93 
3*500006 A 



3UB00006 A 
326QOO0S A 
3*60000A A 
6»l0f)AaO 
6 A 70f>D8F 
0U00O1A9 02 
3«500C06 A 
3UB nC06 A 
68200A8E 
2&600000 A 



21B0OO0O A 
6*30OA87 
7<J8Aoo24 02 
7b8Coo24 02 



PAGE 
##*«*#***«*«*«#*«##«**#####«#«*«#•###«#****#«***♦## 

* SHIFT STRING LEFT # 

* Pi « CeiUMN AT MICH T6 START SHIFT # 

* P2 ■ WIDTH BF FIELD STARTING AT THIS C8LUMN # 

# P3 « number t8 shift lfft • 



SHIFTIEFT 

PUSH 

AW#P1 

BAL#LNK 

BCS#8 

SNjPl 

# 

# C8MPUTE WHeRf 

* LEFT END 8F C 
* 

SL3 



EQU * 
(PliR?) 

P2 
ANL2RIGHT 

SL30 
P? 



SAVE REGS 

START ANU AFTER 8RIG Fl^LD 

ANLZ FIELD AT Pi 

89PS • FIELD IS &FY8ND END 8F Ca*D 

REST8RE Pi 



T8 
ARD 



SHIFT T6, C8MPFNSATING IF SHIFT PUSHES DATA SFF 



AVn#R1 

L*#P2 

SW,P? 

BGE* 

DATA 

SW/Pi 
AWiR t 

BLEZ 
LI#P? 



P? 
Pi 

P3 
SLg 

TYPECERR 

ERRC2 

P? 

P2 

SL20 





SET RlfWlDTH 8f FIELD AT PI T8 S"lFT 
CALCj Pl-BEGINNING 8F iFR8Mf FIELD 

P2«BEGINNING 8F ,T8t FIELD 
D8ES THIS SHIFT Q?F LEFT END 8F CARD 
YES • TYPE? '••C N JUNDERFL8W* 



FIX UP |FR8hf C8L. AND WJDTH 

T8 SHIFT 8NLY T» C9Lt 

D8ES SHIFT PUSH ENTIRE FIELD 
N8 • SET *T8f«c8L. 



S8 AS 

8FF CRD 



* SHIFT FIELD AT Pi LEFT 

# 

SL5 



SlSA 



CI.Rl 

BE 

lb#ti 

STB#T1 




SL10 

CARDIMG#P1 
CARDIMGjP? 



IS WIDTH 8F FIELD 
YES • SKIP SHIFT 
SHIFT L EFT 



T8 SHIFT ■ 



HOI 



205 
4699 
4700 
4701 
470? 
4703 
4704 
470B 
47Q6 
4707 
4708 
4709 

4710 
4711 
471? 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
472? 
4723 
4724 
4725 
4726 

4727 

4728 



44 SEP 08# 
05 00A84 
C5 00 A 85 

05 C0*86 



OB 00*87 
05 00 A 88 
05 00*89 
05 00A8A 
05 00 A 8B 
05 00A8C 
05 00A8D 



05 00A8E 
05 00A8F 
05 00 A 90 
05 00A91 
05 Q0 A 92 



05 00A93 
05 00 A 94 
05 00 A 95 
05 00 A 96 
05 OOA97 
05 00 A 98 



»75 

2U500001 A 
2U600001 A 
64B nA82 



228000*0 A 
758C0C24 02 
2U600001 A 
64A0OA88 
0220O080 A 
0A50O19C 02 

6*OEoaoo A 



3WAQ0006 
3«B00006 
3UA0O00B 
22600000 
6»00OA87 



3*50O006 
2150008C 
6»100A76 
3S60O005 
3»6OOC0A 
6**O0OA87 



AI#P1 
Al*P? 

BDR#Ri 



233 



1 
1 
SL5A 



* BLANK eUT CLFARED CHaRS ©N RIGHT 

* 



SL1C 



Ll/Tl 

STB#Ti 

Al*F2 

BDR*P3 

PULL 

B 



t * 

CARDIMG#PJ? 
1 

• •2 
<Pl#R?> 

0#lNK 



BLANK BUT 

RESTORE REGS 
EXIT 



* SHIFT PUSHES EVERYTHING, INCLUDING FIELD AT P\s OFF CARD, S8 BLANK 

* 8UT AND EXIT 
* 

SL20 AW # P 3 Pp CALC P3»* OF COLUMNS WlPED 8UT 

S^iRl P? 

AW#P3 Rl 

LI#P2 SET iTBt FOR BLANKING* 

B SL10 68 BLANK 8UT 

* 

* FIELD T8 SHIFT IS BEYOND END 8F CaRDJ SgT UP T8 SHIFT IN BLANKS 
« 

SL30 SW/P1 P2 RESTORE Rl 

ClsP\ MAXCLMN IS FIELD BEYOND £ND 8F CARD 

BL SL3 N8 - CONTINUE NORMALLY 

LW # Pp Pi SET P?iC8Lt AT WHtCH TO START 

sw,p2 p3 blanking out 

b slio g8 blank out 



HOI 



20*44 < 


SEP Q8# 


4729 






4730 






4731 






473? 






4733 






4734 






4735 






4736 






4737 






4738 




05 


4739 


C* 


Q0A99 


474o 


05 


C0 A 9A 


4741 


05 


00*98 




05 


C0A9C 


474? 


o 6 ? 


00 A 9D 


4743 


05 


OOAgE 


M744 


05 


0OA9F 


4745 


05 


OOAAO 


4746 


05 


OOAAl 


4747 


05 


00AA2 


4748 






4749 






475C 






4751 






475? 


05 


OOAA3 


4753 


05 


00AA4 


4754 


05 


00 A A5 


4755 


05 


00AA6 


4756 


05 


00 A A7 


4757 


05 


0CAA8 


4758 


05 


00 A A9 


4759 


05 


OOAAA 


4760 


05 


OOAAB 


4761 


05 


OQAAC 




05 


OOAAD 


476? 


05 


OCAAE 


4763 


05 


OoAAF 



'75 
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0QA9* 

8150O08C A 
6*lEoQ0O A 
0^2000AO A 
C D 300l9C 0? 
2^800000 A 
SbgOnoBg 02 
3&8QO022 02 
3U50f»006 A 
215ono8C A 
6»3Qf)B03 



6A70097C 
6y80f)ADD 

66C00022 02 
5!?BonoOC A 
308 OC05 A 
2UBFFFFF A 
3310OC85 02 
31A00022 02 
6«200AB3 
0*200C20 A 
0°Boni9C 02 

3*5oncoa A 
* tt Coooo* 02 



PAGE 
♦#####•##♦#♦##########*««♦####»*♦#####♦##»#«#*♦#*## 

* SHIFT STRING RIGHT « 

* Pi * COLUMN AT WHICH T8 START SHIFT * 

* P2 • WIDTH 8F FIELD STARTING AT THIS C8LUMN # 

* P3 ■ NUMBER T8 SHIFT RIGHT * 

* 
* 

SHJFTRIGHT ECU • 

ClsPl MAXCLMN IS FIELD BEY8ND fcND 8F CARD 

BGE o,LNK YES • EXIT 

PUSH (X1#R?) SAVE RFGS 

SET CNTS«0 



Ll#Tl 

STW # T1 



FIELDCNT 


STW*T1 
A*#Pl 
Cl#*l 
BE 


blankcnt 

Pg 

MAXCLMN 

SR70 



START ANLZ AFTER BRIG FIELD 
D8ES FIELD AbUTT END 8F CARD 
YES • G8 PROCESS 
« 

# BUILD p.WD DATA BL8CK F8R EACH FIELD T8 BE C8MPRESSED AND PUSH 

♦ 8N STACK 
# 
SR5 BAL#LNK ANLZRIGHT ANLZ FIELD AT pi 

88PS « END 8F CA*D 
CNT BLNKS T8 C9MPRESS 

BUILD? R1-C8LUMN AT END 8F N8N*BLNKS 
R2«<* 8F N8N,BLNKS,# T8 SHFT) 
CNT FIELDS COMPRESSED 
ARE EN8UGH BLNKS C8MPRgS$ED YET 
YES 
N8 • SAVE FIELD DATA BLOCK 

INCR Pi T8 NEXT I s I ELD 



BAL#LNK 


ANLZRIGHT 


BCS#8 


SR50 


A*M#R? 


BLANKCNT 


STHjRi 


R? 


Ai*#Ri 


"1 


Al#Rl 


• 1 


mTw#i 


FIELDCNT 


CW#P3 


BLANKCNT 


BLE 


SR8 


PUSH 


(R1#R?) 


LW^Pi 


*1 


ANDjR? 


XFFFF 



HOI 



20J44 < 


?EP C8# 


f 75 
















235 


4764 


05 


00*80 


3U50000C 


A 






A^#Pl 


R2 








4765 


05 


OOABl 


2V500C02 


A 






Al^Pl 


2 








4766 


05 


00 A B2 


68000AA3 








B 


SR5 




ANLZ NEXT FIELD 




4767 










# 














4768 










# 


INITIALIZE Tft 


06 ACTUAL 


SHIFTS (I.E.* COMPRESSING) 




4769 










# 














4770 


05 


0OA83 


3*Aon022 


02 


SR8 


SK/P3 


BLANKCNT 




ADJUST (# T6 SHI*T> SprC IN R2 


T b 


4771 


OB 


C0 A B4 


3uConooA 


A 






A*#R? 


P3 




PRESERVE EXCESS BLNKS IN LAST 


FIELD 


477? 


05 


00AB5 


3*30000B 


A 


SR8A 


L»**\ 


*1 




AV8ID1 PUSH RijR2 




4773 


05 


C0AB6 


3*40000C 


A 






LVv.X? 


R? 




PULL RljRZ 




4774 


05 


00 A B7 


2^800000 


A 






Ll#Tl 











4775 


05 


00 A 88 


3&800022 


02 






STW#Ti 


BLANKCNT 




CLEAR BLNK CNT 




4776 


05 


00AB9 


33F ooB5 


02 






MTWj.t 


FIELDCNT 




DECR FIELD CNT 




4777 


05 


OOABA 


6^20OACi 








BGZ 


SR12 




>0 • 1 » R M9RE FIELDS ©N STK 




4778 


05 


OOABB 


6S30OA8E 








BeZ 


SR10 




■0 - AT 1ST FIELU (STK EMPTY) 




4779 


05 


OOABC 


52800004 


A 






LH#Tl 


X? 




<0 • SHIFT WIPES ALL BUT ©RIG 1 


FILLD 


4780 


05 


oqabo 


6«00nAC3 








B 


SR12A 




AT Pi 




4781 










« 














478? 










• 


READY TO SHIFT 


1ST FIELD 


ij BUT 


FIRST ADD ©N ©RIG FIELD AT ^1 




4783 










# 














4784 


05 


ooabe 


5^600004 


A 


8R1O 


AH,Pg 


Xg 




ADD LENGTH ©F ©RIG FIELD T0 <# 


©F 


478R 


05 


00ABF 


2U6FFFFF 


A 






Al/P? 


•1 




N8N-BLNKS) SPEC IN R2 




4786 


05 


OOACC 


5S600C04 


A 






STH#Pp 


X2 








4787 










♦ 














4788 










# 


SET 


UP PARAMfTeRS F8R CURRENT 


SHIFT 




4789 










* 














4790 


05 


OOACl 


52800004 


A 


SR12 


LH#Tl 


X2 




SET Tl.# 6F CHARS IN FIELD yd 


SHIFT 


4791 


05 


0OAC2 


2V80OC01 


A 






AljTi 


1 




(INCLUDING PRECEDING BLANK) 




<*792 


05 


C0AC3 


4O40O006 


02 


SR12A 


AND # X2 


XFFFF 




KEEP CUMULATIVE C^T 0F BLNKS 




4793 


05 


OOAC^ 


66400022 


02 






AWMjX? 


BLANKcNT 




C&MPRESSED ©UT 




4794 


05 


0OAC5 


3*400003 


A 






LW#Xj? 


Xl 




CALCl XIpEND ©F »FR©Mi FIELD 




4795 


05 


00 A X6 


3U400022 


02 






AiN/X? 


BLANKCNT 




Xg«END 8F »T©» FIELD 




4796 


05 


0OAC7 


21800000 


A 






CUJi 







IS * 8F CHaRS T& SHIFT ■ 




4797 


05 


00AC8 


6»300ACE 








BE 


SR15A 




YES • SKIP SHIFT 




4798 
4799 












D© 


CURRENT SHIFT, THEN CHeCk NUMBER LEFT T8 D© 




4800 










* 















HOI 



201 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 

480*9 
4810 
4811 
481? 
4813 
4814 
4815 
481ft 
4817 
4818 
4819 
4820 

4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 

4831 
4832 

4833 

4834 



44 fifcP C8i 
OP 00 A C9 

05 00 A CA 
05 0C A C8 
05 OOACC 

05 COACD 
05 CO A CE 
05 OOACF 
05 OOADO 
05 00 A Ol 
(5? 00 A D2 
05 GC A 03 
05 00A04 



05 00 A D5 
05 00 A D6 
0? Q0 A D7 
05 00 A D8 
05 Q0 A D9 
05 00 A ^ A 
05 OOADB 
05 CO A DC 



05 00 A DD 
05 00 A OE 
OP 00 A DF 
05 00 A EQ 
05 00 A E1 
0? Q0 A E2 
05 0OAE3 



'75 

7*96no24 02 
7b98n024 02 
2U3FFFFF A 
2U4FFFFF A 
64800AC9 
33F ooB5 02 
6*10f)AD5 
02200020 A 
A 30019C 02 
3*000085 02 
6*20OACl 
6«00OABe 



3<J800022 02 
2*900C40 A 
7&98nc24 02 
2U4FFFFF A 
648Q0AD7 

0*2onc A o A 

QA30019C 02 
6«0EO00O A 



6A70OD8F 
0O0Oni A 5 02 
2^800000 A 
468Q0G22 02 
3fc80O00A A 
0^200020 A 
0AB0O19C 02 



SR15 



SRj.5A 



LB'T? 
STBjTp 
Al/Xt 
Al#X 2 

BDR#Ti 

BLZ 
PULL 

MTW# 
BGZ 

B 



CARDIMG#xi 
CA«DIMG/X? 

•1. 

•1 

SRl5 

FIELDCNT 

SR20 

(XUX2) 

FIELOCNT 

SR12 

SR10 



C8MPRESS FIELDS 



2^6 



DECR FIELD CNT 

<0 - ALL SHIFTS DftNE 

>iO • GET NEXT FIELD DATA BL&CK 

TEST FIELD CNT 

>0 • 1 8R M8RE FIfLDS LEFT 

iO - AT 1ST FlgLP 



♦ ALL SHIFTS DGN'Fj 58 BLANK 8UT CLEARED CHARS 8N LEFT 

# 

SR20 LW^Tt BLANKCNT 

SR2CA Ll#T2 i » BLANK 8UT 

STB#T? CARDIMG**? 

Al#X2 »1 

BDRiTi $-2 

PULL (Xl/R?) 



B 



o#lnk 



RESTORE REGS 
EXIT 



♦ END. 8F. BUFFER HIT? N8T EN8UGH BLANKS T8 ABS8R* SHJFT 

# 

SR50 BAL#LNK TyPECERR TYPEJ f **CN J8veRFL8w » 

DATA ERRCl 

Ll#Tl o CLEAR BLNK CNT 

XWiTi BLANKCNT SET Ti«(# 8F N&N-BLNKS Ttf DESTR6Y) 

S*#Tt P3 
PULL (Rl#R?) START 8N LAST FlfcLD 

# PULL FtELD DATA BL8CKS FR8M STACK AND DESTR8Y N©N»BLANKS UNTIL 

* EN8U6H RB8M F8UND# WHEN F8UND BUILD APPROPRIATE DATA BL8C* 



HQl 



20 
4835 
4836 
4837 
4838 
4839 
4840 
4«41 
484? 

4843 
4844 
4843 
4846 
4847 

4848 
4849 
4850 
4851 
485? 
4853 
4854 

4855 
4856 
4857 
4858 
4859 
4860 
4861 
486? 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 



144 SEP OB* 

05 0OAE4 

05 0OAE5 

05 00AE6 

35 0OAE7 

05 00 A E8 

05 C0 A E9 

05 OOAEA 

05 OOAEB 

05 OOAEC 

05 OOAED 



0" OCAEE 
05 OOAEF 
05 OOAFQ 
05 OQAFi 
05 C0AF2 

05 C0AF3 
05 OOAF4 
05 0OAF5 
05 00AF6 
05 00AF7 
05 0OAF8 



05 OOAF9 
05 OOAFA 
05 OOAFB 
05 OOAFC 
05 OOAFD 
05 OOAFE 



♦75 

5U80OO0C A 
6*2ooAEE 

5«B0O00C A 

3U8QO008 A 

SuConooC a 

4°CqoO06 oa 

3*C00008 A 

3UC00022 08 

5 b 800GQC A 
6*00OAB5 



5«J9onOOC A 
3U90OO0C A 
#°900006 02 

6&9QOC22 02 
33F ncB5 02 
6«300AF9 
02200020 A 

0AB0O19C 02 

2UBono01 A 

2VC10000 A 
6*00f)AE4 



3U80fl006 A 
6*20OAFF 
5«B ooc oC A 

22C0OOO0 A 
55600C0C A 

6&000AE6 



SR52 
SR52A 



AH*T1 
SLE* 
5H#Rl 
A*#Rl 

AHj Rg 
AND#R 
SW,R2 
AW/R2 
STH#T 
B 



R2 

SR55 
R2 
Tl 

R? 
XFFFF 

T1 

BLANKcNT 

R2 
SR8A 



* 

# N8T EN8UQH R88M FOUND YET* 

SR55 



L*>T? 
AW#T? 
AKDiTi 

A^MjT; 
MTW#- 

BEZ 

PULL 

Al/Rl 
Al#Rp 

B 



R2 

Rp 

XFFFF 

BLANKCNT 
FIELDCNT 
SR58 
<R1#R?) 



X'10000' 
SR52 



237 

IS CURRENT FIELD (♦aTNpRS ALREADY 

WIPED 6UT) L8NQ EN8UGH F8R eVER^LSfcl 
YES 'BUILD Rl £ «P AS BEF8RE! 
RlfCBLUMN AT END ©F N8N.BLNKS 

N8T DESTRGYpD 
Rgi<# QF N8N«BLNK5 NBT DESTR»YfcD, 
t * T8 SHIFT) 



G8 SHIFT 
GET NEXT FIELD DOWN AND DeSTR&Y PART BF IT 

KEEP CUMULATIVE CNT 8F CHARS 
DESTR8YED 



DECR FIELD CNT 
*0 - AT 1ST FIELD 
>0 - GET NEXT FIELD 



DATA BL8CK 



INCt F8LL8WING BLANK IN HELD 



05 OOAFF 6^600022 02 



# AT 1ST FIELD AND STILL N8T EN8UGH R88M 
« 

SR58 AW,Tl Pg ADD IN 8RIG FIELD AT Pi AND CHK K88M 

BLE2 SR60 

Sh#Ri R? EN8UGH F8UND - FIX Rl & *2 T» 

LI#R? DESTRiY PART 8F 8RIG FIELD AT Pi 

STHjPp R? 

B SR52A 
# 

* SHIFT PUSHS ALL FIELDS ^FF CARD, S8 BLANK 8UT AND EXIT 
* 

SR60 A*M,Pp BLANKCNT SET UP T8 BLANK FR8M 8rIG p 1 



HOI 



20 
4871 
4872 

4873 

4874 

4875 
4876 

4877 
4878 
4879 

4880 

488 1 

488? 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 



S44 SEP 08, 
OS COBOO 
05 00^01 
05 00 b C2 



CR 00*03 
05 00904 
OF 00 B 05 
05 00 B 06 
05 00 B 0? 
05 C0808 
05 0OBC9 
05 QO y CA 
05 00«0B 
05 OO^oC 



05 QO&OD 
05 OOWCE 
05 OOBOF 
05 00 H 10 



'75 

3*400005 A 
2U4FFFFE A 
6«00nAD5 



6A70OD8F 
0U00O1A5 
3*60OO0A 
6»2ooBoD 
3^A 0O 022 
22300088 
3&30O00A 
22400C8B 

38800006 
6»0COAC9 



A 

02 

A 

A 

A 

A 



3O60O0OA A 
38800006 A 
28400C8B A 
6«00OAD6 



LWiX2 
Al#X? 
B 



PI 
• 2 
SR20 



# 
* 
# 
SR70 



ee BLANK euT 

FIELD T8 SHIFT ABUTTS END 8F CARDl S£T UP T8 PERFORM THIS SHIFT 

TYPE! ♦••CN;8VERFLew« 
OSES SHIFT PUSH »RIG FIELD 6FF CARD 



BAL*LNK 
DATA 

BLEZ 
STW#P 3 

LNXl 
S*#X1 

l:#x2 

L*/T1 
B 



TYPECERR 
ERRC1 
P3 
SR72 

BLANKCNT 

MaXCLMM-1 

P3 

MAXCLMN-1 

P? 

SR15 



N8 • SET BLANKCNT.* 8F CHARS TO 
BLANK 6UT 

SET XI. END 8F ?FK8M» FIELD 
X2.LAST C0LUMN 8N CARD 
TIM ©F CHARS T9 SHl^T 

G6 SHIFT THIS FIELD 



« 
# 
* 
SR72 



ABUTTING Fl^LD IS SHIFTED 6FF CARD, SB SET UP Td &LANK ©UT 



AW,P? 

L*#T1 
LI#X? 



P3 

P? 

MAXCLMN-1 

SR20A 



SET Tl.# 8F CHARS TB BLANK OUT 
(•ORIQ Fl^LD WIDTH) 
X2.LAST C8LUMN ©N CARD 
G8 BLANK 8UT 



MOI 20J44 SEP 08/ '75 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 



49C? 

4903 



4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
491? 
4913 
4914 

4915 
4916 
4917 
4918 
4919 

4920 
49?t 
492? 

4923 
4924 
4925 
4926 



05 
05 00*11 
C5 CC*12 
05 00*13 
05 00*H 
05 00*15 
05 00*16 
05 00*17 
05 00*18 
05 00*19 
05 00*1A 
05 COBIB 
05 00*lC 
05 00*10 
05 0C*1E 

05 00*1? 
05 00*20 
05 00*21 
05 00«22 

05 
05 00*23 
05 00*2* 
05 00*25 
05 00*26 
05 00*27 

05 
05 00*28 
05 00*29 
05 00*2A 



00811 

0*200020 A 
0*50019C 02 
0*30019C 02 
2U6QO007 A 
32F0O005 A 
2*500007 A 
2*EoonOO A 
3*E00001 02 

2uEonoFo A 

7&EC0000 A 
2U6FFFFF A 
6^500*17 
2KFon040 A 
7&FCO00O A 

2U6OO001 A 
2^300006 

2«fFono4o 

2*5000FC 

0082<* 

715Cnnoo A 

6»3on828 
75FC0000 A 
2U60OO01 A 
6^300623 

0082* 

0*3oni9C 02 
0*200C20 A 
0*5oni9C 02 



PAGE 

* C8KVERT BINARY T8 DECIMAL STRING * 

* Pi » BINARY NUMBER * 

* P2 « BYTE AODR T8 PUT STRING IN * 

# 

BIM»0EC ECU * 

PUSH (Pl#P£)iXl SAVE RGS 



2^9 



BD10 



BD30 



BD20 



AI#P? 
LW#01 
LlsP\ 
ll*Oo 

Al/Do 

STBjDO 

AI/P2 

BDR#Pi 

Ll/Di 

STB#D1 

AI/P2 

LI#Xi 

Ll#Di 

LI#P1 

ECU 

CB#Pl 

BKE 

STBjDi 

AI#P2 

BOR#Xi 

EGJU 

PULL 



7 

PI 
7 



KlO 
»0» 
0#P2 

• 1 

BD10 

! » 

0#P2 

1 
6 

X>40» 
X»F0» 
* 
0#P2 

B020 
0# p 2 

1 

B030 

$ 

(Pl#P2)jXl 



SET P2«LAST BYTE ADDR 8F STRING 

SET T6 L88P 7 TIMFS 

EXTRACT RIGHTM8ST DIGIT 

C8NVERT T8 EBCDIC AND PUT IN STRING 



L88P 

SET 1ST BYTE ■ BLANK 

GET PAST THE BLANK 
NUMBER 8F FIELDS T8 CHECK. 
NULL CHARACTER 



CHECK F8R ZE*9 

N8T EQU IS N8T A LEADING ZERS 

MAKE IT NULL 

INCREMENT BYTE APR. 

G8 FIND AN8THER 



HOI 20144 SEP 08# *75 2*0 

49?7 05 00«?B 6»0E0G00 A B 0#LNK r_XIT 



HOI 20*44 SEP OSj f 75 
492« 
49P9 
4930 
4931 
493? 
4933 

4934 05 C082C 

4935 OF 00 tf ?& 

4936 05 00H2E 
4937 

4938 05 0OW2F 

4939 OS 00^30 
4940 

4941 OS Q0&31 
494? OF 00^32 



0*7ooi9C 02 
2*700023 A 
3*F0O00A 02 

3&FEO023 02 
647onB2F 

0»70019C 02 
6»0EoG00 * 



PAGE 

♦ BLANK TNPUT 8UFFER * 






BLANK3UF PUSH 

LlsLM 
LW/01 

BDRjLNK 
# 

PULL 

B 



LNK 

MAXCLMN/4 

4BLNKS 

CARDIm6*1jLNk 
$-1 

LNK 
O'LNK 



wcl 



20 144 J 


SEP 08# 


»75 










4943 












PAGE 




4944 










##**#»*#♦##♦####♦♦##♦## 


4945 










* CL8SE 


UPDATE FILE * 


4946 










♦##»##########»######♦# 


4947 










# 






4948 










* 






4949 




05 


00933 




CL8SE 


EQU 


* 


4950 


0? 


00*33 


OMonoii 


03 




MJCL8SF 


FjElMSAVE) 




03 


00011 


15000000 
8U00HC00 


N 










03 


00013 


ovoooooa 


A 








4951 


0* 


00*34 


6«OEncoo 


A 




B 


0#LNK 


4952 










««*«#***«*«##**#*#*«# 


4953 










* CL8SE 


C8PY FILE * 


4954 










##«««*««*«***##«#«##« 


4955 










« 






4956 










* 






4957 




05 


0083& 




CL8SE2 


FGU 


* 


4958 


05 


00*35 


0^1onoi4 


03 




MJCL8SF 


f:e8#(save) 




03 


00014 


l^ooocoo 
sooonooo 


N 










03 


00016 


0U00O002 


A 








4959 


05 


00*36 


6*oEnooo 


A 




B 


OjLNK 


4960 










« 






4961 










# 






496? 


05 


00»37 


04100017 


03 


C18SE3 


MICL8SF 


FjESj (RED 




03 


00017 


l^Oonooo 

8000000Q 


N 










03 


00019 


ouooooci 


A 








4963 


05 


00*38 


6»OEnooo 


A 




B 


OiLNK 



242 



HOI 20»4* SEP 08j '75 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
497? 
4973 
4974 
4975 
4976 



2*3 



4977 

4978 
4979 

4980 
4981 
498? 
4983 
4984 
4985 
4986 

4987 

4988 
4989 

4990 
4991 
499? 

4993 
4994 
4995 
4996 
4997 
4998 
4999 



05 Q0B39 
05 00*39 02?0OG4O A 
05 00*3A 0&50019C 02 
0* 00*38 2^800000 A 



05 00*3C 



OF 00*30 
05 Q0*3E 
0? 00*3F 

05 G0*4Q 
05 00*U 
05 00*42 
05 00*43 
05 00*44 
05 00**5 
05 00*46 



6A7onC6l 



31B00E28 

6*300B67 
3160000B A 

6*200B40 
3bB Ol9B 02 
3*500!9B 02 
2U500C01 A 
6A70OC61 

2K70OO03 A 
7t>7oni9B 02 



PAGE 

# DELETE SPECIFIED REC8RDS « 

* PX « FIRST SEQ, NUMBER TB DELETE * 

♦ P2 ■ LAST SEQt NUMBER T8 DELETE ♦ 

* Rl ■ SEQ« NUMBER »F LAST REC8RD READ « 

* R2 ■ NUMBER 8F REC8RDS DELETED * 

# CCifi IF LAST SEQ # PASSED) CCl*0 8THERWISE # 
#####################*#**#######♦######«##*######♦# 

# 

DELETE FQU i 

PUSH (Pi#Tl) SAVE REGS 



LI#Tt 







USE Ti T8 COUNT * 8F RfCS DELETE 



# 

* 

DL10 



DELETE REC8RDS VIA? 
READ H 
READ N + l 
DELETE N 
READ N*2 
DELETE N+1 
ETCt 

BALiLNK READNXTRANDQM 

READ AND DeLfTE UNTIL LAST SEQ 



Ci*jRl 

BE 
CW,P? 

BLE 

STw^Rl 

Lfc#Pl 

AliPl 

BALiLNK 

LI/LNK 

STBjLNK 



L(E8F) 
DL30 
Rl 
DL15 

delnxt 

OELNXT 
1 

READNXTRAND8M 

3 

DELNXT 



READ 1ST SEQ * 8N NEXT HIGHEST U 

# READ 8R PASSED 

WAS AN E8F READ 

YES • G8 TYPE ER«8R MESSAGE 

N8 » WAS INPUT SEQ # >• LAST SEQ * 

yes * G8 finish ^p 

N T8 DELETE SUFFER 



READ N«l 

SET KEY LENGTH 



N01 



20844 < 


SEP C8j 


♦ 75 




5oco 


05 


00S47 


041OO01A 


03 




03 


0001A 


owoonooo 
suoonooo 


N 




03 


0001C 


0U00O19B 


02 


5001 


05 


00^48 


2U80D001 


A 


5002? 




oooooooi 




5003 


05 


00849 


3fe50019B 


02 


5004 


05 


00 8 4A 


4O50OE2B 




5005 


05 


00«48 


3b50O?C3 


02 


5006 










5007 


05 


Q0&4C 


6&00OB3D 




5008 










5009 










5010 










5011 


0? 


0084D 


6*ionBsc 




501? 


05 


Q0&4E 


6^7onB95 




5013 


05 


00»4F 






5014 


05 


00B4F 


3bBon?C3 


02 


5015 




00^50 


2U80D001 


A 


5016 


05 


00*51 


3*500008 


A 


5017 


05 


00 B 52 


21500001 


A 


5018 


05 


G0 a 53 


6«3ooB58 




5019 


05 


00^54 


2^6onA3l 


02 


5020 


OP 


00«55 


6A700B11 




5021 


05 


00*56 


6*7onDC4 




5022 


05 


00 w 57 


0U00O28C 


02 


5023 




05 


0Q35* 




5024 


05 


00 B 58 


0*2ono4G 


A 




05 


00W59 


0A5OO19C 


02 


5025 


05 


00»5A 


02200000 


A 


5026 


0* 


0Ofc*5B 


680EO000 


A 


5027 










5028 










5029 










5030 


05 


OObSC 


3250OC08 


A 


5031 


05 


00»5D 


2*5onooi 


A 


503? 


05 


00 B 5E 


6«200B63 





MjDELPFC F?EI#<KEy#DELNXT> DELETE N 



2*4 



DL15 



CL17 



Al/Tl 


1 


D8 


M8DEi2 


LW#P1 


DELNXT 


AND#Pi 


■XtFFFFFFf 


STW,P1 


INTFLAG1 


FIN 




B 


DL10 


seG # mtt 9R passed: i 


BL 


0L20 


BALiLNK 


DELETEREC8RD 


081 


M8DE-2 


STW # R1 


IMTFLA61 


Al#Tl 


1 


LW#Pi 


Ti 


CI, Pi 


1 


BE 


DL17 


L!#P2 


BA(MSG6)*i 


BaL^LNK 


BINT80EC 


BAL^tNK 


TVPEMSG 


DATA 


MSQ6 


equ 


* 


PULL 


(PliTi) 


LCI 





B 


OjLNK 



BUMP DELETED RECORD C8UNTER 
GET RID 8F THE BYTE C8UNT 
N*l IS 8Kj SET T8 DELETE IT 



WAS LAST SEQ * PASSED 
N8* WAS HIT • DELETE IT 



INCR DELETE G8UNT 

D8NtT SAY ANYTHING IF ITS 6NLY \ 



PEST8RE REGS 



EXIT WITH CClPO 

# 

* LAST SFO WAS PASSED? EXIT WITH CCl'l 

« 

DL20 LwjPI Tl 

CI/P1 1 DSNtT SAY ANYTHING IF TTS 8NLY l 

BLE DL25 8R LESS 



HOI 



20 J 44 ! 


?EP 08, 


'75 














5033 


05 


00«5F 


2*6onA3l 


02 






LI#P2 


8A<MSQ6)*1 




5034 


OS 


00»60 


6 A 7ooBll 








BAL#LNK 


8INT80EC 




5035 


09 


00^61 


6^7onDC4 








bal#lnk 


TYPEMSG 




5036 


OS 


0OB62 


0U00O28C 


02 






data 


MSQ6 




5037 




05 


00863 




DL25 


EGU 


$ 




5038 


0? 
05 


00 y fe3 
00«64 


0^200040 
0*50019C 


A 
02 






PULL 


(Pi#Ti) 


REST&RE REGS 


•5039 


05 


00^65 


0^200080 


A 






LCI 


8 




5040 


05 


00^66 


6«0E0C00 


A 






B 


OjLNK 


EXIT WITH CClfl 


5041 










# 










5042 










# 


ERR&Rl E8F HM 


r 




5043 










« 










5044 


05 


00&67 


6*7onDC4 




DL30 


BALiLNK 


TYPEMSG 


TYPE* »#»EeF HIT* 


50^5 


05 


00^68 


CUOOOiDB 


02 






DATA 


ERRMl 




5046 


05 


00 B 69 


6*00oB5C 








B 


DL20 


Q© EXIT WITH CC1M 



245 



Hot 20*44 SEP C8* f 75 

50*7 
6048 
50*9 
5050 
5051 
605? 
5053 
5054 
5055 

5056 

5057 



2*6 



PAGE 



5058 
5q59 
5060 
5061 
5062 
5Q63 
5064 
5065 
5q66 
5067 



5o68 

5069 
5070 
5071 
507? 
5073 
5074 
5075 
5076 
5q77 
5o?8 



05 
05 Q0B6A 
05 00«6B 
05 00 a 6C 
05 00*60 
05 00*6E 
05 0OB6F 
0* Q0*7Q 
05 00*71 
05 00 a ?2 
05 Q0*73 
OF 00^74 
OF 00*75 
03 0001D 

03 0001F 
05 00*76 
05 00»77 
OF 00H78 
OF 00*79 



05 oo«7a 

05 00*7A 
05 00»7B 
OF C0*7C 
05 00*70 



0036A 

0^200080 A 
O03OO19C 02 
2*6ooB7A 
3S>6on36A 02 
2*60000* A 
3b60036Q 02 
2*8oo37l 02 
2S90O37A 02 
28AOO370 02 
6*7qoC08 
0^100368 02 
OMonClD 03 
1^000000 N 
80000000 
00000001 A 
02200080 A 
0A3OO19C 02 
0^200000 A 
6*0EO00Q A 



7S30OO0A A 
2X300003 A 
6*3ooB82 

0«^2ono8o A 



• DELETE FILE 

* PI f ADDR BF FILE ID In CDT 



* CCl-l IF FILE D6ES N6T EXISTj CCliO BTHERWISE * 
# 



DELETEFILE 

PUSH 

U#P? 

STIrfjPp 

LI.P2 

STWjP? 

Ll#Tl 

LUT2 

LI#P3 

BALjLNK 

CALlM 

MJCL9SF 



PULL 



# 

* 

DF$ABN 



B 



RES 
L*#X1 

CI#M 

BNE 
PULL 



$?0#$50 
EQU * 
«X1#P3) 

DF$ABN 

92iFPT+2 

4 

eP*FPT+5 

8?$NAM£ 

62$ACCT 

epiPASS 

8PENIMT 

»2$FPT 

FjEej(REL) 



(Xl^P3) 


0#LNK 





P3 

3 

BADI91 
(X1/P3) 



IN8UT 



FILE EXISTSj Se LL6SE ANP RELEASt 



31 20 1 44 ! 


SEP 08j 


175 
















05 


00»7E 


A 30019C 


02 












5079 


05 


00«7F 


0*200080 


A 






LCI 


8 




5080 


05 


00*80 


6«0EOG00 


A 






B 


0*LNK 




5081 










* 










508? 










# 


ERR8RJ bad i/e 






5083 










# 










5084 


05 


00881 






BA0I6 


RES 







5085 


05 


00^81 


3*3onooF 


A 






LW#Xi 


Dl 


M8VE C8DE T8 Xn 


5086 


05 


00 8 82 






BAOiei 


RES 





ENTER HERE IF C8&E 


5087 


0* 


00 B «2 


2&300?7C 


A 






SCS#Xi 


• 4 


BUILD ERR8R C8DE 


5088 


05 


QG B 83 


7fc46000E 


02 






L8,X 2 


HEXCHARjXt 




5089 


05 


00»84 


7&4002A5 


02 






STBjX? 


I8ERRC8D 




5090 


05 


00S85 


2^300064 


A 






SLSiXl 


• 28 




5091 


05 


00^86 


7S46n00E 


02 






LB#Xj? 


WEXCHARjXi 




509? 


05 


00*87 


2*100001 


A 






LI#X3 


1 




5093 


0* 


00*88 


7b4202A5 


02 






STB,Xg 


IBERRC6DjX3 




5094 


05 


00 b 89 


7S42000A 


A 






LB,X 2 


P3#X3 


GET SUBCODE 


50^5 


05 


00 B 8A 


2^>4ono7F 


A 






SLS,X ? 


•1 


AND RIGHT JUSTIFY 


5096 




00 B 8B 


2&4Q027C 


A 






SCS#X ? 


• 4 


BUILD ERR6R SUBCODE 


5097 


05 


00 tf 8C 


7fc380G0E 


02 






LB # X! 


ME.XCHAR#Xp 




5098 


05 


00^80 


2U100C02 


A 






Al#X3 


2 




5099 


05 


00 8 8E 


7t532n?A5 


02 






STB#X! 


I8ERRC8DjX3 




5100 


05 


0OW8F 


2b400064 


A 






SUS#X2 


• 23 




5101 


05 


00«9C 


7*38nOOE 


02 






L8/X1 


HEXCHAR#X? 




510? 


05 


00»91 


7&3on?A6 


02 






STBjXI 


I8ERRC8D+1 




5103 


05 


00 B 92 


6A7onDC4 








BALjLNK 


TVREMS6 




5104 


05 


00 tf 93 


0<J0002Ao 


02 






DATA 


I8ERRMSG 




51C5 




ooooooou 








D8 


M8DE»1 




5106 








*S# 






CAL3j6 







5107 














FlSE 






5108 


05 


00*94 


0^900002 


A 






MJERR 




ERR8R T8 UTSt 


5109 














FIN 







2*7 



IN Xl» 



MOl 20144 SEP 08j »75 
■5110 
£111 
511? 

5113 
5114 
5115 
5116 
5117 



848 



PAGE 
* DELETE LAST RECORD READ * 



511ft 



# 
« 
05 0GB9t> DELETEREC9RD EGU * 

05 00«95 O*i00020 03 MlDELRFC FjE J# <KEY,LASTKEY) 

03 00020 0^000000 N 

8U00OG00 
03 00022 0U00OO8D 02 
05 00^96 6*0En000 A B 0*LNK 



HOI 20844 sEp 08# '75 
5119 
5120 
5121 
5122 
5123 
5124 
51 25 
5126 
5127 
5128 
5129 
5130 



5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 



05 
05 00«97 
05 00«98 
05 00^99 
05 0C tt 9A 
0«? C0»9B 

0* 00»9C 
05 00»9D 
05 00«9E 
05 00»9F 
05 OO^AQ 
05 QO«Al 
0* 00&A2 
OF C0«A3 
05 00 8 A4 



OF 00BA5 
05 0OBA6 
05 0OBA7 
05 OO^Ag 
05 00 b A9 
0* 0O«AA 



0089/ 

0*20f)C6O A 

0&20019C 02 

3<?20O007 A 

3560016E 02 

2*60f)5AC 02 
6*7onBll 

3S60O16E 02 

2^300001 A 

2<J400003 A 

2*EonoFo A 

7XE6016B 02 
69300BA5 

2U30OC01 A 
644or>BAi 



2*500007 A 
22400003 A 
7XEAni68 02 
6*30nBAB 
2U5FFFFF A 
64400BA7 



PAGE 

* M8VE SEGUENCF number * 

* Pi ■ SEQ« NUMBER T8 CaNVERT « 

* P8 ■ BYTE ADDR AT WHICH T8 PUT STRING * 

* WORD AFTER BAL i 4 CHARS T8 APPEND T8 STRING # 

* Rl * NUMBER 8F CHARS IN RESULTANT STRING * 

# 



2 49 



M0VESEQ FGU 
PUSH 



L>#*4 
STWjPp 

LI#P2 

BAU^LNK 

L>,P2 

LlsXl 

lis*? 

Ll#Do 

C8/D0 

BNE 

Al#Xl 

BDRiXp 



$ 
(X4itfvK) 

LN« 

TEMPBLCK+3 

BA(TEMPBLCK) 

BTNTOqEC 

TEMP8LCK+3 

1 

3 

'0' 

TCMPBLCKjXl 

MQ10 

1 

**3 



SUPPRESS TRAILING ZER8ES 



MQlO 



Ll#Pj 
Ll#XP 
CB/Do 
BKEZ 

Al#Pl 
BDR/Xg 



7 
3 

TEMPBLCKjPi 

MQ20 

•1 

$*3 



SAyE REGS 



SAVE 
SAVE 



LINK 

P J9 



C8NVERT 
REST8RE 



SEQ 
P2 



# T8 EBCDIC? • DOOOOPD 1 



CALC X1.P8SITI8N ©F 
CHAR 8R 4TH DIQlT 



1ST N8N-ZERB 



CALC PlfP8SITI8N 8F 1ST N8N«ZE«8 
DIGIT FR8M RIGHT 8F 4TH DIGIT 



BUILD STRING T8 LEFT 6F DECIMAL P8INT 



HOI 



20? 


44 SEP 08# 


'75 












5155 


0* OO^AB 


7*E6ni6B 


C2 


MQso 


LB* Do 


TEMP8LCK,Xi 


5156 


0* OO^AC 


7SEC0000 


A 






STB#Do 


0#P2 


5157 


C* 00«AD 


2U60O001 


A 






Al,P2 


1 


5158 


05 QOtJAE 


2V300001 


A 






Al#Xl 


1 


5159 


05 0O»AF 


21300004 


A 






CI#X1 


4 


5160 


05 GOggo 


6«2onBAB 








BLE 


MG20 


5161 


05 OO^Bi 


22Eoo0^ 8 


A 






Ll/Do 


t • » 


516? 


05 OoWBg 


7bECn000 


A 






STB#Oo 


0^2 


5163 


05 0OBB3 


2U600001 


A 






Al/P? 


1 


5164 








# 








5165 








* 


BUILD 


STRING 


T6 RIGHT 8F D 


5166 








* 








5167 


05 Q0BB4 


31500003 


A 


KG25 


CW # Pi 


Xl 


5168 


05 00B85 


6»l00BBB 








BL 


MG30 


5169 


05 00BB6 


7SE60168 


02 






LB#Do 


TEMPBLC<'X1 


517c 


05 00^87 


7SECn000 


A 






STBiDo 


0#P2 


5171 


05 00*88 


2U600001 


A 






Al#P? 


1 


517? 


05 00»B9 


2M30OO01 


A 






Al#Xi 


1 


5173 


05 00 88 A 


6*00nBB4 








B 


MQ25 


5174 








* 








5175 








• 


APPEND 4 SPECIFIED CHARS 


5176 








# 








5177 


0« QO^BB 


2^300000 


A 


MQ30 


Ll#Xi 





5178 


05 OOBBC 


2*400004 


A 






l_I'X2 


4 


5l79 


05 OOBBD 


F2E60002 


A 


HQ3QA 


LB/Do 


♦X^'Xl 


51^0 


05 OO^BE 


6«3ooBCl 








BEZ 


$♦3 


5181 


05 OOBBF 


75ECOO0O 


A 






STB, DO 


0#P2 


518? 


05 00«CO 


2U60O001 


A 






AbP2 


1 


5183 


05 C0«C1 


2U30OC01 


A 






AI#X1 


1 


5184 


05 00 B C2 


6^4 oBBD 








BDRjX? 


MD30A 


5185 


05 00 e C3 


32B 0000 6 


A 






LW/Ri 


Rp 


51.86 


05 00**C4 
05 C0BC5 


0^200060 
0*2oni9C 


A 

02 






PULL 


(X4#LNK) 


5187 


05 00 b C6 


3**B on0 06 


A 






8W#Rl 


P? 


51,88 


05 00 B C7 


6*0E00C1 


A 






B 


1*UNK 



2t?0 
MBVE NftN*ZER0 DIBITS TS LEFT 8F 
DEC. PTi T6 ADDH IN Pp (AT LEAST 
1 DIGIT M&VED) 



MBVE t.t T9 ADDR IN P2 



P8INT 

M9VE (IF ANY) DIBITS TB RIGHT BF 
DEC. PTt T© ADD* IN Pp 



MBVE 4 CHARS SPECIFIED T9 END 3F 
THIS STRING* SKIPPING Q CHARS 



REST8RE REGS 

CALC Ri -NUMBER 9* 
EXIT 



CHARS IN STRING 



HOI 80144 SEP OB* '75 
5189 

5190 
•5191 
519? 
5193 
5194 
5195 
51 96 
5197 
51 9g 
5199 
5200 
52C1 



520? 
5203 
5204 
5205 
5206 
5207 

52C« 

5209 
5210 

5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 

w Cv c«« a 

5223 



05 QOBC* 
05 00»C8 0*200080 A 
05 00&C9 0»30019C 02 
05 OO^CA 2*600004 A 
05 OOWCB 6*000000 F 



05 QOBCt* 

05 OC»CC 02200080 A 

05 OO^CD 0°30019C 02 

05 0O tt CE 2*600001 A 



05 00»CF 
05 00»CF 
05 00^00 
0* 00»Dl 
05 00^02 
05 00&D3 
05 00 B D4 
05 00WD5 
05 C0 a D6 
05 0O a D7 
05 C0»D8 
05 00BD9 
05 OO^DA 



3&60O356 02 
2«i6ooBE4 
3^600353 02 
2fe80O35A 02 
2^900363 02 
2SA n366 02 

6 A 700C08 
4 lOO35l 02 
3*300005 N 
2^30O07C A 
4O30O003 02 
21300002 A 



PAGE 



2&1 



• 8pen update file * 

# ©pen update! file (8pen1 8pens c9py input file) * 

* pi ■ addr bf file id in cdt * 

* CCl'l IF FILE D8ES N8T EXIST; CCliO 8THERWISE • 

* CC2«1 IF FILE IS N8T KEYED* CC2*0 8THERWISE * 
####**#«««*«»*#«««#«#*♦»•#«*#««*#«#«###**####*#*###*« 

« 

* 

8PEN 



« 
8PEN1 



« 
* 

$20 



L8CAL *20#*90 

FQU * 

PUSH (X1/P3) 



Ll#P2 

B 



FQU 
PUSH 

LI/P? 



4 
*20 



$ 

(XliP3) 

1 



RES 


Q 


STW,Pp 


8*FPT*5 


LI#P2 


8$ABN 


STW#Pp 


8$FPT*g 


LI#T1 


8$NAMf 


Ll#T2 


8*ACCT 


LWP3 


8$PASS 


baljlnk 


epENlNIT 


CALlM 


8$FPT 


L*#Xt 


F;EI*R 


SLSjXl 


*4 


ANDjXI 


XF 


CI#Xi 


2 



IN8UT 



INPUT 



SET 



ADDRESS 
STQRlNG 
FPT. 



REGISTERS F8K 
PARAMETERS INT9 



8PEN FILE 
FILE EXISTSt 
8RGANIZATI8N 



SH8ULD Be K£Y E Dt 



HOI 



20J44 S£P 08* 


•75 












5224 


05 


OOBDB 


6*300000 


F 




B*E 


*9Q 




5225 


05 
0* 


oo«oc 

OO^DD 


0*200C80 

A 3oni9C 


A 

02 




PULL 


(Xl#P3) 


IT IS. 


5226 


05 


00*DE 


0£2oncoo 


A 




LCI 







5227 


05 


OOBOF 


6*0EOC0O 


A 




B 


0,LNK 




5228 










# 








5229 










* 








5230 


05 


OOBEO 






$90 


RES 







523i 


05 

05 


Q0»E0 
00«El 


0220O080 
A 30Ol9C 


A 

02 




PULL 


<X1#P3) 




523? 


05 


00*E2 


0^200040 


A 




LCI 


4 




5233 


c* 


00&E3 


6*0En00O 


A 




B 


OjLNK 




5234 










# 








5235 










# 








5236 










« 








5237 


05 


00BE4 






6$ABN 


RES 







5238 


05 


00BE4 


7230OO0A 


A 




LB#M 


P3 




5239 


05 


00»E5 


2130O003 


A 




CI#X1 


3 




5240 


05 


00<*E6 


65*3onB82 






BNE 


BADI91 




5241 


05 
05 


Q0»E7 

0OBE8 


0*200080 
0A30O19C 


A 

02 




PULL 


(X1#P3) 


N© FILE. 


5242 


05 


00»E9 


0220OC80 


A 




LCI 


8 




5243 


05 


OO^EA 


6»0En00O 


A 




B 


0#tNK 





2b2 



Hoi 20144 SEP 08* »75 
5244 
5245 
5246 
5247 

5248 
5249 

5250 

5251 

5252 

5253 



5254 
5255 
5256 
5257 
5258 
5259 

5260 
5261 

526? 

5263 

5264 
5265 
5266 

5267 

5268 
5269 

5270 

5271 
5272 
5273 

5274 

5275 
5276 
5277 



05 QO B EB 
05 OO^EC 
05 0O B ED 
05 00*EE 



05 COWEF 
05 00»F0 
05 CO«Fi 
05 00»F2 
05 00BF3 
05 Q0&F4 

05 00«F5 
05 00«F6 
05 00»F7 
05 00»P"8 
05 00» F 9 
05 OO^A 
05 00«FB 
05 OOttFC 
05 OOBFD 



05 COBFE 
05 OOOPE 



Q22ooo80 A 
O tt 3oni9C 02 
22600002 A 
6*000000 F 



05 OOBE^ 



0^200080 A 

0&30019C 02 

2260000* A 

3t>6oo36D 02 

2<2600BFE 

3&60O36A 02 



2^800371 
2890037A 

22A0O37D 
6 A 700C08 
0*100368 
0^200080 
0A30O19C 
02200000 
6«0EOG00 



02 
02 
02 

02 
A 

02 
A 

A 



PAG£ 

# 6PEN (fiUTPUTJ FILE F8R C8PYJNG • 

♦ PI » ADDR ftF FILE ID IN COT # 

* CC1P1 IF FILE D&ES N8T EXISTi CCHO 8THERWISE * 

# 
* 

9PEN3 



2^3 



8PEN2 



•20 



7230000A A 



♦ 
* 
« 
82*A8N 



L8CAL 

PUSH 

LI#P2 



FQU 

PUSH 

LI#P2 

STWiP2 

LI#P? 

STWjPj? 

L!#Tl 

LNT2 

LI#P3 

BAL^LNk 

CALIjI 

PULL 

LCI 
B 



RES 
LBjXl 



•20 
(XliP3) 

2 

•20 



<X1#P3) 

4 

8?$FPT+5 
82$ABN 
82$FPT*2 

8g*NAME 

82*ACCT 

82«PASS 

6PENINIT 

8p$FPT 

(Xl#P3) 


OiLNK 




P3 



8UTPUT 



IM8UT 



SAMEt 



HCl 2084* SEP 08* 


t75 






5278 


OS 00»FF 


21300003 A 


CI#X1 


3 


S279 


os ooCoo 


6*3oo882 


BNE 


BADI9! 


528o 


os ooCoi 


2*300002 A 


Ll#Xi 


2 


52«1 


OS 00^02 


3b3on360 02 


STW/Xi 


8g$FPT*5 


528? 


OS Q0C03 


0*100368 02 


CAL1#1 


Q2iFPT 


3283 


OS 0OC04 

os ooCos 


0^200080 A 
0*3onl9C 02 


PULL 


(X1/P3) 


528* 


OS OOC06 


02200080 A 


LCI 


8 


6285 


OS 00CC7 


6»0£fiOOO A 


B 


0#LNK 



2lH 



N8 PREViaUS FILE* OPEN FSR ©UTPUT. 



HOI 



2QJ44 

3287 

5288 
5289 

5290 
5591 
5?9? 
5?93 
5294 
5?95 
5296 
5297 
5298 
5299 
5300 
5301 
53C? 
5303 
5304 
5305 

5306 
5307 

530g 
5309 
5310 
5311 

5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 

Zj *3 C X 

5322 



SEP 08 * »75 



05 
05 00^08 
05 00^09 
05 OOCOA 
05 OOCOB 
05 OOCoC 
05 OoCoD 
05 00C0E 
05 OOCO^* 
05 OOCIO 
05 OOCll 
05 00C12 
05 00C13 
05 0CC14 
05 OoClS 
0* 00^16 
05 00Cl7 
05 00C18 
05 0OC19 
05 OOCIA 
05 OOClB 
05 OOCIC 
05 OOClD 
05 OOClE 
05 OOClF 
05 00^20 



QOCO* 

3S30000A 02 

8 $30OGO9 

Bb300C0A 

23400001 
Bb38O009 
B$38000A 

2*4FFFFF 
3«3onE2C 

8^380009 
3eJ3onE2D 
BS38000A 
F<*400005 
FS40D008 
F£38n005 
F &38D008 
64400C15 
F2400008 
20400004 
2^40007E 
3U50O004 
Ffc40OC05 
6*300000 
F8380005 
2U4FFFFF 
^^380009 



PAGE 

* 



2&5 



INITIALIZE 8PEN FPT « 

Pi • ADOR &F FILE ID IN COT ♦ 

Tl ■ FPJ ENTRY T8 PUT FILE NAME IN * 

# T2 « FPT ENTRY T9 PUT ACC8UNT NUMBER IN # 

# P3 • FPT ENTRY 19 PUT PASSWORD IN « 



L0CAL 

8PENINIT EQU 

LW#Xi 

STWjXi 

STW#Xi 

Ll>X2 

STWjXI 

STWjXi 

LI/X? 

LW,Xi 

STW*X1 
LW/Xl 

ST^Xl 

LB^Xp 

STBjXg 

LB#Xi 

STB/Xj 

BDRiX? 

LB#X2 
AI/X2 
SLSjXg 

LB,X2 

BEZ 

LB#X1 

Al/X? 

STB#Xi 



*5Q>$60*$65#$70j$80 

S 

4BLNKS 

#T2 

*P3 

1 

»T2#X3 

*P3iX? 

• 1 

L(X»020002G2> > 
#T2# X2 
L(XtQ30iG?02t ) 

♦P3/X2 



•PI 
#T1 

*Pl#X2 
#Tl#Xp 

• -2 

*T1 
4 

•2 
Xg 

#P1 
*50 
♦P1#X2 

• 1 
*T2#X? 



INITIALIZE ACCOUNT AND PASS C8NTK8LS 



M9VE FILE NAME T& BuFFFR* 
Pi PBINTS T8 ITt 



SKIP JB ACC8UNTi BYTE C&UNT FR9M FPT 

Pi N8W AT ACC6UNT 

N6 ACCSUNT 

M6VE ACCOUNT Te BUFFER 

THIS LS8P PUTS N« BYTE COUNT INTO 

FPTt 



HOI 



8014* J 


;EP 08# 


»75 










5323 


05 


00C21 


2U4oriOOO 


A 




AJ/X2 





5384 


05 


00C22 


6*2nnCiE 






BGZ 


$•4 


5325 


05 


0OC23 


F*4QnQ05 


A 




LB,Xp 


#Pi 


5326 


05 


00C24 


2U400004 


A 




Al*X2 


4 


5327 


05 


00C25 


2^40O07E 


A 




SISjX? 


• 2 


5328 


05 


0OC26 


3U500004 


A 




AW # Pl 


X2 


5329 


05 


0OC27 


6*ooncoo 


F 




B 


$6Q 


5330 










# 






5331 










# 






5332 


05 


O0C28 






$50 


RES 





5333 


05 


00C28 


8U50D001 


A 




Al'Pl 


1 


5334 


05 


0CC29 


223FFFFE 


A 




LliXt 


«2 


5335 


05 


00C2A 


Fb460Q09 


A 




STBjX? 


*T2#Xi 


5336 










♦ 






5337 










# 






5338 


05 


0OC2B 






$60 


RES 





5339 


05 


0OC2B 


F«400005 


A 




LB#X? 


#P1 


534C 


05 


00C2C 


6»3onooo 


F 




BEZ 


$70 


5341 










* 






5342 










« 






5343 


OS 


OOCgD 






$65 


RES 





5344 


05 


00C2D 


F*38no05 


A 




LB#Xl 


♦Pl/Xp 


5345 


05 


C0C2E 


2U4FFFFF 


A 




Al#X2 


• 1 


5346 


05 


0OC2F 


F&380CCA 


A 




STBjXl 


*P3*X? 


5347 




OOC3C 


2^400000 


A 




Al#Xg 





5348 


05 


00C31 


6*2onC2D 






BGZ 


$65 


5349 


05 


00C32 


6»oonooo 


F 




B 


$80 


5350 










* 






5351 










• 






5352 


05 


00C33 






$70 


RES 





5353 


05 


00C33 


223FFFFE 


A 




LI#Xi 


• 2 


5354 


05 


00^34 


F546n00 A 


A 




STBjXp 


#P3*Xi 


5355 










* 






5356 










• 






5357 


05 


OOC35 






$80 


RES 





5358 


05 


0CC35 


6&0EO00O 


A 




B 


0#LNK 



2*96 



SKIP T8 PASS 



Pi NOW POINTS TO PASS 



step to pass 

set fpt for n8 account, by sayin<* 

NO USABLE WOKDSt 



NO PASS 



MOVE PASSWORD WlT W BYTE COUNT 



SET FPT FOR NO PA$$S# BY SAYING 
NO USABLE WONDSt 



Hoi 20144 SEP 08* *75 

5359 
5360 
5361 
536? 
5363 
5364 
5365 
5366 
5367 
5368 



5369 

5370 
5371 
537? 
5373 
5374 

5375 
5376 
5377 

5378 

5379 

5380 
5381 
538? 
5383 

538# 

5385 
5386 
5387 

5388 
5389 

5390 
5391 

539? 



05 
05 00^36 

05 00^37 
05 00^38 
05 00C39 
05 00C3A 
05 00C3B 
OF 0OC3C 
05 0OC3D 
05 0OC3E 
05 00C3F 
05 00C4Q 
05 00^41 
05 0OC42 
05 Q0C43 
05 O0C44 



05 OCC45 
05 00C45 
05 00&46 
05 00^47 
05 Q0C48 
05 00 c 49 
05 00C4A 
0* 00C4B 
05 C0C4C 
05 00C4D 



Q0C3* 

O*20008o A 
O^Oni^C 02 
2*6onC45 
3S6Q0353 02 
2*60000* A 
3&600356 02 
2*80O35A 02 
2*9qo363 02 
2*Aqo366 02 
6A700C08 
0*100351 02 
0*200080 A 
0A30O19C C2 
0*2QOO0O A 
6»0EO000 A 



7*30000A A 
21300003 A 
6»3ooB8g 
22300002 A 
3^300356 02 
0^100351 02 
0*200080 A 
0*30019C 02 
0*200080 A 



PAGE 

« OPEN NpW (9UTPUT »NLY) FILE * 

# PI f ADDR ftP FILE ID IN CDT ♦ 

* CCiM I? FILE OSES N8T EXlSTJ CCiiO OTHERWISE * 

# 
* 

ePENNEw FQU * 

PUSH (Xl#P3) 



2$>7 



# 
# 
* 

8N$ABN 



LI/P? 

STWjP? 

LI#P2 

STWjP2 

LIjTI 

LliT2 

LI#P3 

BALjLNK 

CALl#l 

PULL 

LCI 

B 



RES 

L8#*1 
CUXi 

BNE 

Ll#Xi 

STW^Xt 

CAL1M 
PULL 



LCI 



8N$ABN 

S$FPT*2 

4 

8$FPT*5 

9*NAMe 

a$ACCT 

8*PASS 

8PENIMT 

8$FPT 

(X1*P3) 


0#LNK 





P3 
3 

BADI81 

2 

8$FPT+5 

8$FPT 

(XliPS) 

8 



IN8UT 



FILE EXISTS. 

N8TEt 



8PEN F8R eUTPUTt 



HOI 



201 44 SEP OS* 


♦75 










5393 


05 


00C4E 


6&OE0OQO 


A 




B 


O^LNK 


5394 










# 






5395 










* 






5396 










*####*«##«#*#*««•«#«#*#***##* 


5397 










« 


VERIFY < 


:arriaq£ retu 


539g 










*******«»«•**•#***•««*#***#«« 


5399 










# 






5400 


05 


QOC4F 


0^7oni9C 


02 


PUTCR 


PUSH 


LNK 


54 CI 


05 


0OC50 








D6l 


M8DE12 


540? 


05 


OOC5O 


6*70OD3B 






BAL,LNK 


TABC9MPRESS 


5403 


05 


C0C51 


3*7Q00AF 


02 




l^#lnk 


crflag 


5404 


05 


00C52 


6*3onC5F 






BNEZ 


PUTCRg 


5405 


05 


00C53 


387oncE7 


02 




Li*#LNK 


RECSIZE 


5406 


05 


C0C54 


207FFFFF 


A 




Al#LNK 


• 1 


5407 


05 


00C55 


22F 00l5 


A 




LlsOl 


Xi l5f 


5408 


05 


00 c 56 


7XFEno24 


02 




CB^Oi 


CAROIMG^LNK 


5409 


05 


00^57 


68300C5F 






BE 


PUTCR3 


5410 










# 






5411 


05 


OOC58 


2^700001 


A 




Al#LNK 


1 


541? 


05 


0OC59 


2X70008C 


A 




ClilNK 


maxclmn 


5413 


05 


00C5A 


6*l0nC5D 






BL 


**3 


5414 


05 


00C5B 


2<f7ono8B 


A 




LULNK 


MAXCLMN*1 


5415 


05 


0OC5C 


3&7000E7 


02 




STWjLNK 


RECSIZE 


5416 


05 


0OC5D 


7&FEOG24 


02 




STBjDI 


CARQlMQiLNK 


5417 


05 


0OC5E 


331000E7 


02 




MTW#1 


RECSIZE 


5418 










» 






5419 


05 


00C5F 


Q870019C 


02 


PUTCR2 


PULL 


LNK 


5420 


05 


O0C6O 


6«0Eo000 


A 




B 


O'LNK 



2b8 



D8 N8T INSERT CR WHEN FL*G IS 

N6N-ZER8 



IF N8 CR 

(D8 N8T 68 BEY8NU C8L. 1^0) 
INSERT 8NE 



HOI 



20 

5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
"5432 
5433 

5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
544? 
5443 
5444 
5445 
5446 



J44 SEP 08# '75 



05 
05 OoCfel 
05 00^62 
05 00C63 
05 00C64 
05 00C65 
05 0OC66 
05 00C67 
05 00C68 



05 

05 
05 



0OC69 
00^69 
00C6A 
05 00C6B 
05 00C6C 



0QC61 

0??ooi9C 02 
6A7onC6D 

6^800000 F 
3SB ooBD 02 
4»B 0n 008 02 
0«7ooi9C 02 
0*20OC00 A 

6«OEnooo a 



6*7onC7F 
0«7onl9C 02 
0^200080 A 
6»OEOOOO A 



PAGE 

* READ RAND8M REC9RD 6R NEXT HIGHEST 9N£ * 

* Pi * SEQ. NUMBER T6 READ ♦ 

* Rl ■ SEQt NUMBER ACTUALLY READ ♦ 

* CCl'O IF RFX&RD EXISTSi CClfl OTHERWISE # 

* 

L6CAL $20 

READNXTRAND8M EGU $ 

PUSH LNK 

BALjLNK READRAND9M 

BCS#8 $20 

LW#Rl LASTKEY 

AND#Ri XFFFFFF 

PULL LNK 

LCI 

B 0#LNK 



2b9 



GOT IT, RETURN KEY. 



# 
*?0 



RES 

BAL^LNK READSEGUEN 

PULL LNK 

LCI g 

B 0*LNK 



NGW SET NEXT KEY# IN Rit 



Hoi 20144 SEP 08# »75 

5447 
5448 
5449 

5450 

5451 

545? 

5453 
5454 
5455 

5456 



2&0 



5457 
5458 

5459 
5460 



5461 

546? 
5463 
5464 
5465 



5466 
5467 

5468 
5469 
5470 
547i 
547? 
5473 



05 
05 0OC6D 
05 C0C6E 
05 00C6F 
05 0OC70 
05 00C71 
05 0OC71 
03 00023 

03 00025 



05 00^72 
03 00026 

03 00028 
03 00029 
03 0002A 
05 00^73 
05 00^74 
05 0OC75 
05 00C76 
05 00C77 



05 OOC78 



00C6^ 

0^200040 A 
0»70019C 02 
6*7ooB2C 
6 A 7onCE6 

0*100023 03 
0*000000 N 
8U00O00O 
0U0OOC78 05 



0*100026 03 

luooocoo n 

9*000010 
0U00OC78 05 
0U00O08C A 
OUOOOOBA 02 
6 A 7ooCEA 

0^200040 A 
OA70019C 02 
0^200000 A 
6»0EO00O A 



PAGE 

# READ RAND0M RECORD * 

# Pi ! SEC3. NUMBER T6 READ # 

# CClPO IF RFC9RD EXISTS; CClil 6THERWISE # 



READRAND9M 

PUSH 



ECU * 
(LNK#P3) 



BAL # LNK BLANKBUF 

BALjLNK SETKEY 

D81 M8DE"P 

MJSETDcB F:EI#(ERRjRR«FRR) 



MjREAD F;EIj J 

(ERR*RRtERR)*i 
(HAlT)jf 

(SIZE#MAXCLMN)#J 
(KEY # K6UF) 



(Pi) ARE KEYiItEi SEQUENCE 



BAUtNK SETLASTKEY 
PULL (LNK#P3) 



« 
* 

# 

RR$ERR 



LCI 

B 



RES 




0#LNK 



Hoi 



20J44 S£P 08# '75 



261 



•5474 

F475 
5476 
F477 


OF OC5C78 
OF 00^79 
C* C0C7A 
OF 0OC7B 


7«iFooOOA A 
21^ono43 A 
6*3onB8t 
0^200040 A 


ClsOi 
BKE 


P3 
X?43< 

BaDIS 
(L^KjP3) 


•5478 
55479 


OF C0C7C 
OF 00C7D 
OF 0OC7E 


0A7OO19C 02 

0^2onoao A 

6»0rO00Q A 


LCI 

B 


8 

0#LNK 



Hoi 20144 SEP 08* »75 






5480 










•5481 










548P 










5483 










5484 










5485 










5486 










5487 










55488 




C5 


O0C7 1 * 




5489 


05 


00C7F 


0^200040 


A 




05 


COC80 


0»70019C 


02 


55490 


05 


C0C81 


6A70OB2C 




5491 


05 


G0C82 






5492 


05 


00C82 


0*lOO02B 


03 




03 


0002B 


0*000000 
4U00OC0O 


N 




03 


Q002D 


oyoonC9o 


05 


5493 










5494 










5495 










5496 


05 


0OCg3 


0*lono2E 


03 




03 


0002E 


luoonooo 

5U00001G 


N 




03 


00030 


0U0OOC9O 


05 




03 


00031 


ouoonosc 


A 


5497 


05 


00C84 


6 A 7onCEA 




5498 


05 


00^85 


3c!F n005 


N 


5499 


05 


0OC86 


2&F O07C 


A 


5500 


05 


00C87 


40F00003 


02 


5501 


05 


0OC88 


BSBOOOOA 


N 


550g 


05 


00C89 


4°B0O008 


02 


5503 


05 


CCC8A 


21F0O002 


A 


5504 


05 


0OC8B 


6**3onC8D 




5505 


05 


0OC8C 


2SBonooo 


A 


5506 


0* 


00^80 


oSgonc^G 


A 




05 


OOCgE 


OA70019C 


02 


5507 


05 


0OC8F 


6»oeoooo 


A 



PAGE 

« READ SfQUENTTAL REC8RD # 
* Rl ■ SEOt NUMBER READ IN # 

# 

L8CAL *10#*20 
# 

READSEQUEN EGU * 

PUSH (LNK*P3> 

BAL#LNK BLANKBUF 

D9i MBDE-2 

MjSETDCB F:EI*(ABN,RS$ABN) 



MJREAD FjEIji 

(WAIT)#J 

(SUEjMAXCLMM)#J 
<ABN,R$$aBN) 



BALjLNK 


SFTLASTKEY 


LW#Di 


FlEI+5 


SLS#Dl 


.4 


ANDjDl 


XF 


LWjRi 


#FJEU10 


ANDiRi 


XFFFFFF 


CI#D1 


2 


BE 


• ♦2 


LliRl 





PULL 


(LNK/P3) 



CHECK eRGANIZATltfN 



RETURN SEQUENCE 



2ER8 IF N6T KEYEU. 



O^LNK 



NCI £0144 SEP 08* *75 
5508 
5509 
5510 
5511 
551? 
5513 
5514 
5515 
5516 

5517 



263 



5518 

5519 

5520 



5521 



5522 
5523 

5524 

5525 
5526 
5527 

5528 

5529 
5530 
5531 
553? 

5533 
5534 

5535 

5536 



05 
K 
05 
05 
05 



0OC90 
0OC90 
00C91 
0OC92 
00C93 



7*F nC0A A 

3X^00006 A 
6^300881 

3£B n£28 



05 
05 
05 
05 
05 
03 

03 
05 

03 

03 
0? 
05 

05 

05 
05 
05 

05 
05 
05 

05 

0* 
05 
05 

05 



00C94 Q*200C70 A 

0QC95 e 5oOl9C 02 

00^96 2^500000 A 

0OC97 3&50O0BD 02 

0OC98 0*100032 03 

00032 10000000 N 
<*00000l0 

00034 0UO0OC9B 05 
00C99 0*100035 03 

00035 10000000 N 
90000000 

0OC37 0000OC9B 05 

00038 0000008C A 

00C9A 6A7 nCEA 

05 00C9» 

00^98 2«B 0015 A 

00C9C 3«50O0BD 02 

00C9D 4&5OO008 02 

C0C9E 2^600765 02 

00C9F 6A700B97 

OOCAO 0*000000 A 

OoCAl 28500001 A 

05 0GCA2 

00CA2 726A01D5 02 

C0CA3 21600008 A 

00CA4 6*3QOCA7 

COCAS 20500001 A 

Q0CA6 6i*00OCA2 



# 
« 
RSaABN 



RES 
LBiDi 
CI#Di 
BNE 

PUSH 





P3 

6 

BA0I9 

LCEOF) 

(PliRl) 



PUT LAST SEQ * I N E9F MESG 



Ll#Pl INITIALIZE LASTKEY IN CASE SEQ 

STWjPl LASTKEY BEL8W TAKES A8N EXIT 

MlPRECBRD FIEI#(ABNjRS*ABNABN)j<rEV> P8SN *EF©RE L A ST REC 



MjREAD FjEl#(ERR#RS$ABNABN)j(SIZE#MAXCLMN> AND GET KEY 



BALiLKK SETLASTKEY 



RS*ABNABN 


ECU $ 


Ll#Rl 


21 


L^Pl 


LASTLY 


AND#Pl 


XFFFFFF 


Ll*P2 


BA(ERRM1)*17 


BAL#LNK 


M6VESEQ 


GEN4 


EBM*Qj0iQ 


Ll#Pl 


1 


RS*A8NE9M EOU 


* 


LBjP2 


ERRMliPl 


ci*p? 


E6M 


BE 


RS*A«NeuT 


Al#Pl 


1 


B 


RS*ABNE8M 



IN CBRE L6C LAST^EY 

SR BYPASS SETTING IF TABLES 
NUMBER aF TEXTC BYTES 
LAST SEQ * READ 

Zap textc byte in key 



START PAST TEXTC C0UNT 
GET BYTE L9e*ING P©R E&M 
EXIT WHEN F0UNO 
KEEP G8ING TILL FaUND 



HOI 



20544 SEP 08, '75 



2&4 



5537 


05 


O0CA7 


RS$ABN8UT 


EQU * 


5538 


05 QCCA7 


2U5FFFFF A 


Al#Pl 


• 1 


5539 


05 O0CA8 


7&500lD5 02 


STB#P! 


ERRMi 


55*0 


05 QQCA9 
05 OOCAA 


0*200070 A 
0A50O19C 02 


PULL 


(Pl#Ri) 


5541 


05 OOCAB 
05 OOCAC 


0*200040 A 
0A70O19C 02 


PULL 


<L^P3) 


5543 


05 COCAD 


6»0EO000 A 


B 


0#LNK 



PBINT T8 BYTE BE* 6RE E9M 
AND USE IT AS TEXTC C&UNT 



HC1 



20144 J 


SEP 08* 


'75 












5543 














PAGE 




5544 










««**##*««****#«*«*««*«*#«**#*«*«« 


5545 










* 


READ 


TELETYPP 


# 


5546 










# 


Rl 


■ NUMBER 


8P CHARS READ # 


5547 










#*#***####*«*##««*»#•*•««*##***«« 


5548 










# 








5549 










# 








5550 




05 


OOCAt 




READTELETyPE2 


EQU * 


555t 


05 
05 


OOCAE 
OOCAF 


0*2ono2o 

0»30019C 


A 

02 






PUSH 


(X^X?, 


555? 


05 


qoCBq 


2^400001 


A 






Ll#Xg 


1 


5553 


05 


00CB1 


6800DCB5 








B 


RT5 


5554 










* 








5555 










# 








«556 




05 


QOCB* 




READTELETVPE 


EQU * 


5557 


05 
05 


00CB2 
OOC83 


0*200020 
0°30019C 


A 

02 






PUSH 


(X1jX8) 


5558 


05 


00^84 


2240OC0Q 


A 






LI#X? 





5559 


OF 


00C85 


3«00OCOA 


02 


RT5 




LW/RO 


4BLNKS 


5560 


05 


0OCB6 


22300023 


A 






Ll^Xl 


MAXCLMN/4 


5561 


05 


00CB7 


6/O80CEQ 








EXU 


RTSTWTBIjX2 


556? 


05 


00CB8 


6430DCB7 








B0R#X1 


»»1 


5563 




ooouooou 








oe 


MODEil 


5564 








«s* 






CAL3jQ 





5565 








*s* 






exu 


RTST8TBL,X 2 


5566 








*s* 






AI#Xj 


1 


5567 








#s* 






CI#RO 


CR 


5568 








#s* 






BNE 


• •* 


5569 








# s # 






LW#R1 


XI 


5570 














ELSE 




5571 


05 


00CB9 


33ooo?Ca 


02 






MTW #0 


CFIAQ 


557? 


05 


OOCBA 


6»3onCD7 








BMZ 


RT10 


5573 


(25 


OoCBB 


33i fi?C2 


02 






MTWji 


CFLAG 


5574 










* 








5575 


05 


OOCBC 


7^300000 


X 






L8 # Xi 


JBSCCARS 


5576 


05 


OOCBD 


72060COO 


X 






LB'RO 


JICCBUF#X1 


5577 


05 


OOCBE 


6?08oCDE 








EXU 


RTSTBTBLjXS 



2&5 



SAVE REGS 

USE X?»i F8R tREADTELETYPE2» 



SAVE REGS 

USE X?.o F8R tREADTEtETYPEt 



READ A CHAR 

PUT CHAR IN BUFFER 

INCR CHAR C8UNT 

L99P UNTIL C/R 

SET RliCeLt # BF C/R 

IF FIRST READ* M$VE C8HMAND IN 
FR9M JjCCBUFt 



Get byte cnt frsn jjpuf 

MftVE RECORD lNT9 APPROPRIATE 
BUFFER 



M01 20! 


44 < 


5£P 08# 


•75 










3578 


05 


CoCBF 


6*300CBD 






BDR#X1 


• •2 


5579 










* 






5580 


05 


occco 


72000000 


X 




LB#Ro 


J!CCBUF 


5581 


05 


COCCI 


6/08OCDE 






fxu 


RTSTBtBLjX? 


558? 


05 


C0CC2 


72BQO000 


X 




LB,Ri 


JBJCCARS 


5583 


13 5 


00 C C3 


2ioono c 2 


A 




CI#R 


IB« 


5584 


05 


00CC4 


6«30fiCD8 






BE 


RT17 


5585 










* 






5586 


05 


0OCC5 


3&7oo2Ci 


02 




STW#LNK 


BUILDFLAG 


5587 


05 


00CC6 


6*7ooDC4 






BAL/LNK 


TYPEMSG 


5588 


05 


00CC7 


0U00O2E1 


02 




DATA 


UTSMl 


5589 


05 


00CC8 


2UBFFFFF 


A 




Al#Rl 


•1 


559o 


05 


00CC9 


3*7on2Cl 


02 




LWiLNK 


BUILDFLAG 


5591 


05 


OOCCA 


72000000 


X 




LB^Ro 


JICCBUF 


559? 


05 


OOCCB 


2100OOC5 


A 




CI,RO 


i E t 


5593 


05 


OOCCC 


6y3onCB5 






BNE 


RT5 


5594 










* 






5595 


05 


OOCCD 


2^300004 


A 




Ll*Xf 


4 


5596 


05 


OOCCE 


2^000040 


A 




LI#RQ 


i » 


5597 


05 


OOCCF 


31300008 


A 


RT8 


CW#Xl 


Rl 


5598 


05 


cocoo 


6«100CB5 






BGE 


RT5 


5599 


05 


oocoi 


71060176 


02 




CB/RQ 


TTYIMGjXl 


5600 


05 


00CD2 


65»3onCD5 






BNE 


RT9 


56C1 


05 


00C03 


2U3OO001 


A 




Al#Xl 


1 


560? 


05 


00CD4 


6»000CCF 






B 


RT8 


5603 


05 


00CD5 


2UBqo001 


A 


RT9 


A!#Rl 


1 


5604 


05 


0OCD6 


6«oonCOB 






B 


RT17 


5605 










* 






5606 


05 


0OC07 


32380CE2 




RTlO 


L>,Xi 


RTADOTBLjXg 


5607 


05 


0OCD8 


0M0O2DC 


02 




CALIjI 


RTtFPT 


5608 










« 






5609 


05 


00CD9 


32B00004 


N 


RT15 


LW#Rl 


M8UC+4 


5610 


05 


OOCDA 


2S>B0006F 


A 




SLS#R1 


• 17 


5611 












FIN 




561? 


05 


OOCDB 


02200020 


A 


RT17 


PULL 


<X1#X?) 




05 


OOCDC 


0^30019C 


02 








5613 


05 


OOCDD 


6&0EOO00 


A 




B 


0#LNK 



266 



IS CdMMAND »BUILDf FR8M TEL 
YES* IT STARTS WITH »Bi. 



TYPE 

iEDIT HERE? 



IS THIS A FORM 8* EDIT 
IF N8T, MUST BE A START* RUN# 
BR GJ8B S8 READ F?RST C8MMAND# 
START L88KING IN BYTE 5t 

CHECK F6R END 0F REC8RD 

IF SO* GET NEXT CfiMMANDt OTHERWISE, 

IF N8N.BLANK ENCOUNTERED/ ACCEPT 

INCREMENT T8 NEXT BYTEt 

UPDATE T8TAL BYTE C8UNT T8 INCLUDE 
CRj THEN EXECUTE CSMMANDf 



REST8RE REGSt 
EXIT 



HOI 



SOU* SEP C8# '75 



267 



5614 








« 






"5615 








« 






5616 




05 OCCDt 




RTSTBTBL 


FGU 


* 


5617 


05 


OoCDE 7&060024 


02 




ST8#Ro 


CARDIMQjXi 


5618 


05 


CO^DF 7b 6ni76 


02 




STBjRo 


TTYiriG,Xi 


5619 








# 






5620 




05 OOCEU 




RTSTWTBL 


EOU 


$ 


5621 


05 


OOCEO 3&06O023 


02 




STW#RO 


CAR0IM6«1jX1 


562? 


05 


OoCEl 3&06nl75 


02 




STW^Ro 


TTYIM0»1jx1 


5623 








* 






5624 




oooooooi 






DO 


M©DE«2 


5625 




05 QQCE* 




RTADDTBL 


FQU 


* 


5626 


05 


0OCE2 0U0QOC24 


02 




DATA 


cardimg 


5627 


05 


C0CE3 0U00M76 


02 




DATA 


TTVIMG 


562g 










FIN 





HOI 20144 SEP 08* *75 
5629 
5630 
5631. 
563? 
5633 
5634 
5635 
5636 
5637 



268 



05 00CE4 
OS 0OCE4 0*100351 02 

05 ooCes 6*of.oooo A 



PAGE 
• RE-8PEN LAST UPDATE FILE * 

* 
RE8PEN 



CAL1M 
B 



8*FPT 
0#LNK 



HC1 



SO J 
5638 
5639 

5640 

5641 

5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
565? 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
566? 
5663 
5664 
5665 
5666 
5667 
5668 
5669 

5670 
5671. 

5672 

5673 
5674 



44 SEP 08j '75 



269 



05 O0CE* 
05 0OCE6 3&50OCBA 02 
05 00CE7 28FOOC03 A 
05 00CE8 7&F noBA 02 

05 Q0CE9 6*0EOO00 A 



05 
05 OOCEA 
05 OOCEB 
05 OOCEC 
05 OOCEO 

05 OOCEE 
05 OOCEF 
05 OOCFO 
05 OOCFl 
05 OOCFg 
05 00 CF 3 
05 O0CF4 
05 O0CF5 
05 00^ F 6 
05 C0CF7 
05 00CF8 
05 00CF9 
05 QOCFA 
05 OOCFB 
05 OOCFC 
05 OOCFD 

05 OOCFE 
05 OOCFE 



OOCE^ 

0^700190 02 
BSFooOOA N 
3S>FoooBD 02 
3^700004 N 
2&70006F A 
3&7000E7 02 
2U7FFFFF A 
3&700CB1 02 
22F00015 A 
7iFEoo24 02 
6*3onCFA 

2SFooO00 A 

71FEO024 02 
6*3ooCFA 

6 A 7ooA56 
6»00oCFE 
2*Fqo040 A 
7SFE0024 02 
3S7QOCE7 02 
33F cnQ Bi 02 

6A70OD01 



PAGE 

# SET KEY F8R READ »R WRITE * 

# PI * SEQ. NUMBER T8 PUT In KEY * 

SETKEY EOU * 

STWjPi KBUF 

Ll#Di 3 

STB#Dl KBUF 

B O/LNK 



« 

# 

# 

SETLASTKEY 

PUSH 

LW#Dl 

STWjOl 

LW#LNK 

SLS # LNK 

STWjLK'K 

Al#LNK 

STW^LNK 

LI#Dl 

CB#Di 

BE 

LI#Oi 

CB#Di 

BE 

BALiLNK 



SETKg 



SETK6 



SAVE KEY FR8K LAST READ 



EQU » 
LNK 

•FIEU10 
LASTKEY 
F!EI*4 
• 17 
RECSIZE 

■1 

E6DCLMN 

Xt 15* 

CARDIMG#LNK 

SETKg 

XiqDi 

CARDIMG^LNK 

SETKg 

SETE8D 

SETK6 

f t 

CARDIMG#LNK 

RECSIZE 

EBOCUMN 

M6DE»2 
TA8EXPAND 



LI#Ol 

STB,Di 
STWjLNK 

MTW#»i 

D8l 
BALjLNK 



SET RECeRD SIZE KeCeIVeD 



DELETE CR FRBMjMAGEt CHECKB9TM 

SAVE ENDING C8LUMN 

BTM 



AND UTS CR»S 



BLANK WILL N9T INTERFERE 
WITH STRING EDITING, 

DECREMENT ENDING C8LUMN 



NCI 



20*44 SEP 08* 


»75 






5675 OF OOCFF 


0»7oni9C 02 


PULL 


LNK 


5676 05 OO&OO 


6*0Ef!00G A 


e 


0#LNK 



2?0 



HOI 



80| 44 ! 


SEP 08, 


'75 
















5677 












PAGE 










"5678 










«««*•*#«*#*##*####«#•«##«•«*#«##«#*#««##*»#»#*«#** 




5679 










# IN 


UTS VERSIfiN, EACH REC8RD 


SUBJECT T8 # 




5680 










♦ EOITING WILL 


HAVE EMBEDDED 


TAB 


CHARACTERS * 




5681 










# EXPANDED ACCORDING T8 THE CURRENT TAB * 




568? 










# ST9PS C8NTAINED IN THE M:UC 


DCB 


• # 




56 83 










*#*««*####***«####««*##«**#«**•»««# * ******#*#**#*#* 




5684 










» 












5685 




00000001 






D8 


M8DE»2 








5686 




05 


00D01 




TA8EXPAN0 


ECU * 








5687 


OF 


00001 


3^0onoB6 


02 




mTWjO 


filetype 




IF N8T EDITING, 




5688 


05 


00002 


6*1E0000 


A 




BLZ 


0#LNK 




EXIT* 




5689 


05 


00003 


33000PC7 


02 




MTWjo 


TABXFLAG 








5690 


05 


00004 


6*3E0C00 


A 




BNEZ 


OjLNK 








5695 


05 

05 


C0005 
00006 


0*2ooc7o 

0»10019C 


A 
02 




PUSH 


(X3#UK) 








569? 


05 


00°07 


3*l0O0E7 


02 




LW,*3 


RECSIZE 




SAVE RECSIZE 




5693 


05 


00008 


3&1001A3 


02 




STW#X3 


TRECSIZE 








5694 


05 


00&09 


28100000 


A 




LI#X3 







START AT FIRST TAB IN DCfc>, 


5695 


05 


00°0A 


2*200000 


A 




LIiX4 







START AT FIRST CHaR. IN 


cardimg 


5696 


0? 


00 D B 


3b2cn?C6 


02 




STW # X4 


TABCFLAG 




INDICATE 08NT C8MpRgSS 




5697 


05 


ooooc 


2«?5onoos 


A 


TA3X4 


Ll/Pl 


X»o5» 








5698 


05 


QOOOD 


71540024 


02 


TA8X5 


C8*P1 


CAR0IMG#X4 








5699 


05 


OOOCE 


6»30f)Dl5 






BE 


TABX10 








5700 


05 


OOOcF 


2U200001 


A 




AIjX4 


1 








5701 


05 


00O10 


312onoE7 


02 




CW/X4 


RECSIZE 








570? 


05 


ooOii 


6*iooDoD 






BL 


TABX5 




WHEN 8UT 8F CHARACTERS, 




5703 










* 












5704 


05 

05 


00012 
00013 


0^200070 
0A10O19C 


A 
02 


TA8X7 


PULL 


(X3#LNK) 




EXIT 




5705 


05 


00014 


6*OEOOOO 


A 




B 


o#lnk 








5706 










* 












5707 


05 


Q0&15 


7«32000F 


N 


TABX10 


LB/Xt 


M|UC+15#X3 








5708 


05 


00016 


6»3ooDlF 






BNEZ 


TABX15 








5709 










« 












5710 


05 


00017 


2UlQft000 


A 




Al#X 3 







IF N8 M8RE TABS IN DCB, 


we can 


5711 


05 


00^18 


6S*3ooDl2 






BNEZ 


TA8X7 




EXITj unless the*e were 


N8 TABS 
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HOI 



20144 < 


?EP C8# 


♦ 75 










571? 


n? 


00^19 


330002C5 


02 


TABX12 


MTW,o 


TA8ERRFLAG 


5713 


05 


OODIA 


6^3onDl2 






BNEZ 


TABX7 


5714 


05 


OQDlB 


3J10O2C5 


02 




MTW#1 


TABERRFLAG 


5715 


05 


OODlC 


6^700004 






BALjLNK 


TVPEMSG 


9716 


OK 


OODID 


0W00O30B 


02 




DATA 


UTSMS 


9717 


05 


OodE 


6«00ODl2 






B 


TABX7 


5718 










# 






5719 


05 


OOOiF 


2U3FFFFF 


A 


TA8X15 


Al,X t 


• 1 


5720 


05 


00020 


3X300002 


A 




CW#Xl 


X4 


5721 


G* 


00021 


6*20OD26 






BG 


TABX17 


5722 


05 


00022 


2W100001 


A 




Al#X3 


1 


5723 


05 


00&23 


2U00010 


A 




Cl#X3 


16 


5724 


05 


00^24 


6S»100D15 






BL 


TA8X10 


5725 


05 


00&25 


6»000012 






B 


TA8X7 


5726 










# 






5727 


K 


00D 26 


2<J50O040 


A 


TA3X17 


LI#Pl 


t f 


5728 


05 


00027 


7&540024 


02 




STBjPI 


CARDlMGiX4 


5729 


05 


00&28 


331002C6 


02 




MTWM 


TABCFLAG 


5730 


05 


00°29 


2U200001 


A 




Al#X4 


1 


5731 


05 


0002A 


3S400CE7 


02 




LW#X2 


RECSI2E 


5732 


0^ 


0002B 


2U4FFFFF 


A 




AI#X2 


•1 


5733 










« 






5734 


05 


00&2C 


3*300002 


A 




sw,x t 


X4 


5735 


05 


00^20 


6»3on00C 






BE2 


TA8X4 


5736 


09 


00^2^ 


3U300004 


A 




AW,Xi 


Xp 


HTP **J7 


05 


00^2? 


3»3oooE7 


02 




STW#Xi 


RECSI2E 


5738 


05 


00^30 


33ionoE7 


02 




MTW#i 


RECSIZE 


5739 


05 


00^31 


72680024 


02 


TABX19 


L8#P? 


CARDIMG#X? 


574o 


05 


00&32 


7b58o024 


02 




STB#Pi 


CARD1MG/X? 


5741 


05 


00033 


7&660024 


02 




STBjP2 


CaRDIMGjXI 


5742 


05 


00034 


203FFFFF 


A 




Al/Xt 


•1 


5743 


05 


00035 


2U4FFFFF 


A 




Al#X2 


• 1 


5744 


09 


00°36. 


31400002 


A 




CW,X? 


X4 


5745 


09 


00&37 


6&100D31 






BGE 


TASX19 


5746 










# 






5747 


05 


O0O38 


3^200003 


A 




LW,X* 


Xl 


5748 


05 


00039 


2U100001 


A 




Al*X3 


1 
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AT ALL. 



IN THAT CASE* ER*8R. 



IS THIS TAB POSITION GREATER THAN 
P8SITI8N OF TAB C8DE» 

IF NOT* TRY NEXT TAB POSITION, 
IF NOT AT MAX NBK 8F TABS. 



PUT A BLANK OVER ACTUAL TAB CODE. 

TO INDICATE COMPRESS 
INCREMENT TO NEXT BYTE. 

DETERMINE LAST BYTE PQSITIQN. 

COMPUTE NUMBER OF BLANKS TO INSENT. 
IF 2ER0# ITERATEt 
INCREMENT TB NEW LAST BYTE. 
SET NEW RECORD SiZEt 

MOVE BYTES UP* STARTING AT TOP# 
BLANKING AS WE GO. 



GO DOWN ONLY TO BYTE UuST ABOVE 
TAB BLANK. 

INCREMENT BYTE POSITION TO LAST 



HOI 



20! 

5749 
£750 
5751 
575? 

5753 

5754 

55755 
5756 

5757 

5758 
5759 
5760 
5761 

5762 
5763 
5764 

5765 
5766 
5767 
5768 

5769 
577o 
5771 
577? 
5773 
5774 
5775 
5776 
5777 
5778 
5779 

5780 
5781 
578? 
5783 



44 SEP 08* 
05 00 D 3A 



f 75 

6*OOODOC 



TABX4 



MBVEDj AND L88K *8R M8RE TAB 



2?3 

C8DLS. 



05 
05 0003B 
05 0OD3C 
05 00D3D 
05 00D3E 
05 00D3F 

05 00P40 
05 00&41 
05 00D42 
05 00D43 
05 00044 
05 00045 
05 00^46 
05 00D47 
05 0OP48 
05 00D49 
05 00D4A 
05 0004B 
05 0OD4C 
05 O0O4D 
05 0004E 
05 0004F 

05 CO&50 
05 00&51 
05 00^52 
05 00&53 
05 00 D 54 



0CD3& 

3^0000B6 02 

6»1E0000 A 

330Q02C6 02 

6&3E0000 A 

0*200060 A 

0»l0ni9C 02 

2*100000 A 

7*32000F N 
6^300D49 

0^200060 A 

OM0019C 02 

6*OEOCOO A 

7232000F N 
6«30OD4C 

2U100C01 A 

21100010 A 
691Q0D47 

2U1FFFFF A 
6*100D6F 

7«32n00F N 

313000^7 02 
6*2ooP4C 

2U3FFFFE A 

225Q0Q4Q A 

71560024 02 
6*3ooD4C 



« 

# ACC8RDINGLY, EACH REC8RD WRITTEN MUST BE * 

* RE.C8MPRESSEC) in 8RDfR T8 MINIMIZE RAO * 
« ST8RAQE PER REC8RD. # 



TA8C8MPRESS 

MTW#0 
BLZ 

MTW10 
BEZ 

PUSH 



TA9C5 

TABClO 
TA9C13 

TABC15 



LI/X3 
LB#Xi 

BNEZ 

PULL 

B 

LB#Xj 

BEZ 

Ai/xa 

CI/X3 
BL 

Al#X3 

BLZ 

LB#Xi 

CW # Xl 

BG 
Al#Xi 

Ll#Pl 
CB>Pi 
BNE 



EQU * 
FiLETYPE 
OjLNK 

TABCFLAG 

0#LNK 

(X3iP?) 



M!(JC*i5*X3 

TABC13 

<X3#P2> 

0#LNK 

M|UC*15#X3 

TABC15 

1 

16 

TABClO 

• 1 

TABC30 
MiUC*iB#X3 

recsize 

TABC15 

• 2 

CARDIMG#X1 
TABC15 



IF N8 C8MPRESSI8N NEEDED* EXITt 



EXIT. 



SKIP T8 LAST TAB P8SlTl8N.fi 
IN DCB. 



M8VE D8WN T8 NEXT L8WER TAB 
P8SITI8N. IF ALL G8NE* EXIT 

D8NT PUT ANY TAB CHARACTERS 
PAST END 8f REC8RD 
MAKE INDEX T8 NEXT L8WRR BYTE. 
IS NEXT L8WER BYTE A BLANK, 

IF N8Tj WE CANtT C8MPRESS IMAGE. 



HOI 



30144 

5784 

5785 
578* 

5787 
5788 
5789 

5790 
5791 
579? 
5793 
6794 
•5795 
5796 
5797 
5798 
5799 
5800 
5801 
580? 

5803 
58O4 

5805 
5806 
5807 
58o8 
5809 
5810 
5811 
581? 

5813 
5814 
5815 
5816 
5817 
5818 
5819 
58?o 



SEP C8# 
5 00^55 

5 Q0g56 
5 00°57 
5 00^58 
5 00059 
5 0005A 
5 00D5B 
5 Q0&5C 
5 0OD5D 
5 00 D 5E 
5 Q0D5F 

5 00^60 
)* 00^61 
5 00^62 
5 00063 
5 00064 
5 00&65 
5 00°66 

F 000^7 
5 00068 

5 00^69 
5 00D6A 
5 OO06B 
5 00D6C 

5 C0P6D 
5 0006E 

5 00D6F 
5 00P70 
5 00^71 
* 00^72 
5 00 D ?3 
5 00^74 
5 00 p 75 



•75 

32200001 
2U2FFFFF 
6*100&5A 
7«24000F 

2U2FFFFE 
38400003 
71580024 02 

6*3onD60 
2U4FFFFF A 

314QOC02 A 
6*2onD5B 



2U400001 A 
2U30O001 A 
22600005 A 
7&680G24 02 
20400001 A 
31400003 A 
6»3onD4C 

72660024 02 
7S680024 02 
2U400001 A 
2U300001 A 
3130O0E7 02 
6*100D67 

3&40O0E7 02 
6*OonD4C 

3300O1A0 02 
6*300044 
3^4cnlA3 02 
3&400GE7 02 
7*56n024 02 
2U30OO01 A 
31300004 A 



TA8C17 
TABC18 



* 
TABC20 



* 
TABC25 



* 
TABC3O 



TABC35 



LW,X* 

AI#X4 
8LZ 

LB/X4 

AI,X4 

LW#X2 

CB#Pi 

BKE 

A!#X2 

cw#x? 

Al#X2 
Al/Xi 

Ll*P2 
STB#P? 

AIjX? 
CW#X? 
BE 

LBiP? 
STB#P? 

AI/XP 
Al#Xl 

CWjXt 

BL 

STWiX? 
B 

MTW # 
BNEZ 

L*#X? 

STW/X? 

STBjPj 

Al#Xt 

C*j*i 



X3 

"1 

TA8C17 

M!UC+i5jX4 

XI 

CARDIMG/X? 
TABC2Q 

•1 
X4 
TABC18 

1 
1 
XIQ5' 

CAROIMG/X? 

1 

Xl 

TABC15 

CARDIMCX1 

CARDIMGjX? 

1 

1 

RECSIZE 

TABC25 

RFCSIZE 
TABC15 

RP$FUAG 

TABC5 

TRECSUE 

RFCSIZE 

CARDlMG^Xi 

1 
X2 
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IF BUNK* WE CAN CSMPRESS D8WN 
T8 NEXT L8WE* TAW P8SITI8N, 

TAB P©SITI8N# 
CREATE NEW IN0EX# 
M8VE IT D8WN T8 
A N8N. BLANK* 

8R TAB B8UNDARY» 



m8ve back up ts blank, 

M8VE BACK UP T8 TAB C8L.UMN, 
PUT TAB CHARACTER 8VER BLANK* 

INCREMENT* AND CHECK IF M8RE SPAtE 

EXISTS BETWEEN INDICES. 

IF N8T, TRY NEXT L0WER TABt 

M8VE BYTES D8WN* STARTING AT TAB 

C8LU*N* AND CONTINUING UH T© END 
8F RECeRDt 



set mw* smaller recqrd size* 

AND GET NEXT TAB* 

PRESERVE RECORD SIZE 

N8 

YES* RESET REC8RD SIZE 

BLANK REST SF RECBRD 
END 8F RECORD 



Hoi 20S44 SEP 08* 
B821 OS 00&76 
3fi?? OF 00&77 
5823 



'75 

6»lonP73 
6«00nD44 



BL 

8 

FIN 



TABC35 
TABC5 



N6 

YES* return 
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Hoi 20144 SEP 08s t 75 

5824 
5825 
582* 

B ?827 

5828 
5829 
5830 
5831 



583? 

5833 

5834 
5835 
5836 

5837 
5838 
5839 

5840 



05 
05 00^78 

05 G0D79 
05 0OD7A 

OS 00°7B 

05 0OD7C 

05 0007D 

05 0007E 

05 0007F 

C* 00^80 
05 0OD81 



PAQ£ 
####♦######*##♦####♦♦*#####♦##### 

* TEST IF EDIT FILE IS ACTIVE * 






0QD7» 


TESTEOITAcTIVE 


EGU * 


33oonoB6 02 


MTW#o 


FILETYPE 


6«?1E0000 A 


BLZ 


0.LNK 


0*7oni9C 02 


PUSH 


LNK 


6 A 7onB33 


BAL#LNK 


CL9SE 


6 A 7onDC4 


BAL#LNK 


TYPEMSG 


00000284 02 


DATA 


MSG4 


22FFFFFF A 


LIjOi 


•1 


3&FoooB6 02 


STW#Dl 


FILETYPE 


0*7oni9C 02 


PULL 


LNK 


6«0EOC00 A 


B 


OjLNK 



TEST IF EDIT FILfc ACTIVE 

NO - EXIT 

SAVE REG 

CL9SE IT 

TYPE; fttEDIT STEPPED! 

SET FILETYPEfl (N8T 0pEN) 

REST0RE REG 
EXIT 



Hoi 20IU SEP 08# '75 
■5841 
584? 
5843 
5844 
5845 

5847 

5848 

5849 
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5850 
5851 
585? 
5855 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 
586? 
5863 
5864 
5865 
5866 

5867 
5868 
5869 
5870 
5871 
587? 
5873 
5874 
5875 
5876 



C5 00088 

05 00D82 0*200050 

05 00D83 0»30019C 

ooooooou 



05 00^84 
05 00D85 



2X500000 
6»100D8C 



OOOOOOOU 



05 00°86 

05 00^87 
05 00088 



A 

02 

*$• 



♦s* 
#s# 
#s* 
«s« 
#s* 
#s* 
♦s» 
*s* 
#s# 

*s* 
#s« 
♦s# 

• $« 
#$« 

C*l0O?D2 02 

6 A 7onDC4 
0000027A 02 



PAGE 

* TYPE CARD IMAGE # 

* P\ • SEQ. NUMBER T8 TYPE * 

* 
# 
TYPECARO ECU * 

PUSH (X1#LKK) 



TC5 
TClO 



TC5 
TC15 



D8 

L>/X? 

Al#X? 

FIN 

Cl#Pl 

BGE 

D6 

lI#Pl 
LI#X t 
L8,Rq 
CAL3M 
Al#Xi 
AI#X 2 
BLEZ 
BDRjPi 

BALjLNK 
DATA 

Ll'Pl 

B 

ELSE 
CALl.i 

FIN 

BAL#LNK 

DATA 



M8DE*l 

E6DCLMN 

1 


TC25 

M8DEH 

72 


CAPDIM6,Xi 



1 

•1 

TC15 
TClO 

TYPEMSG 
MSQO 
72 
TClO 



TPC$FPT 

TYPEMSG 
MSQO 



SAVE RFGS 



SET X2.MUMBER SF SIGNIFICANT CHAHS 



IS SEQ * < (MEANING D&NiT TYPE IT) 



72 CHARACTERS IF N® SEQ * 
INITIALIZE CHARACTER P8SITI6N, 
SEND CHARACTER 

UPDATE CHARACTER PBSITI0N, 

IF ALL CHARACTERS G8NE, GET 8UT, 



INTERSPERSE WITH CR/LF. 
N8W ITERATE 8N 78 t 



HOI 



SOU* SEP 08# '75 



15877 


05 00&89 
05 00D8A 


O22oncso a 

A 30019C 02 


PULL 


Ul'LNK) 


5878 


05 00^88 


6«*0EnC00 A 


B 


Q#LNK 


5879 




# 






5880 




# 






588 1 


OP C008C 


6A70D0DB TC25 


baulnk 


TVPESEC 


5882 


05 0008D 


40080000 A 


GENf 


8L#E9M<0jO 


5883 


05 00P8E 




D81 


MBOE«i 


5884 




*S* 


LI#P1 


*2 


5885 


05 C0D8E 


6*000086 


B 


TC5 



REST8RE REGS 
EXIT 

TYPE SEQ # 

62 CHARACTERS AlQWuiS F6R S£Q * 
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HCl 2GS44 SEP 08j * 75 
5886 
5887 

5889 

•5890 
5891 

589P 
5893 
5894 

5895 
5896 



2/9 



5897 

5898 
5899 

5900 
5901 
590? 
5903 

5904 

5905 



5906 
3907 
5908 
5909 
5910 
5911 
591? 
5913 
5914 
5915 
5916 
5917 
5918 



05 
OP 00°8F 
05 00 D 90 
05 00°9l 
05 00092 
05 0OP93 
0^ 0OD94 
05 00 D 95 
05 00D96 
05 00&97 
05 00D98 



0QD8I* 

3^FonoBp 02 
6»1EOG01 A 
0^200030 A 
Q&30019C 02 
0^70019C 02 
22300002 A 
2**00CC3 A 
F*E6ftOAC 02 
385EO000 A 
68000DA3 



05 00099 



05 00&99 
05 00D9A 
05 00099 
05 0OD9C 
05 OOD9D 
05 C0D9E 



05 0009F 

05 ooDao 

05 OODAI 
05 000A2 



02200030 A 

0»30019C 02 
0*70f)l9C 02 
325EOC00 A 
33F0D048 02 
6^2onDB2 



2240O0D7 A 
32£000E5 02 
2UEFFFFE A 

25>£ono7F A 



PAGE 
####*♦###♦#«###*#*#####*♦##«##♦*#♦##♦#♦#######♦### 

* TYPE COMMAND SR PARAMETER ERR8R * 

* *8RD AFTER BaL ■ W9RD ADDR 6F TEXTC»STRING * 
«*#«*##*««#**»«*♦*«#««*«♦***#««*«*#«#*«*#«#««##### 
« 

TYPECERR EQU * 

MTW#-i ERR9RCNT IS ERR6R CNT EXHAUSTED 

BLZ i#LNK YES • SKIP PRINTING ERR©« MSG 

PUSH (Xl/Pi)#LNK 



Ll#Xt 
LI*X? 
LB/DO 
LW#P1 



TYREPERR EGU 
PUSH 



2 

♦CDTADR'Xt 

OiLNK 

TP10 



(Xl#Pl)#LNK 



GET # 8F CURRENT CMND iN CDT 
SET PltADDR 8F STRING 



LWjPj 

MTW#«1 

EG2 



0#lNK 

CDT 

TP20 



SET Pl-ADDR &F STRING 

TEST IF SNIY 8NE CMND IN CDT 

N6 • G8 FIX UP EHR6R MSG 



# 9NLY 8KE C8KMAND IN CDTt PRINT »P» ERR6R AS IT STANDS 

TPS LI*X2 tpt 

LWjDo PARAMPSN CALC P8SITI6N QF CURRENT PARAMETER 

Al#Do • ? 

SLSjDo •! 
# 

* SEARCH F©R FIRST 'C(P)' 



HOI 



20144 < 


5EP 08# 


•75 




5919 


05 


00°A3 


2^5on002 


A 


5920 


05 


000A4 


3*300005 


A 


5921. 


0* 


00DA5 


2U300001 


A 


^922 


OF 


00DA6 


71460000 


A 


5923 


05 


00DA7 


6^3onDA5 




5924 


05 


00&A8 


2W30O001 


A 


j 2* <S*3 


05 


OO0A9 


4*Eor>004 


02 


592^1 


05 


OOOAA 


7&E60G00 


A 


5927 




OOOOOOOU 




5928 








*s* 


5929 








*$* 


5930 








#s# 


5931 








#$# 


5932 








#s# 


5933 








#s# 


5934 








#s* 


5935 








•s* 


593ft 








#s» 


5937 










5938 


0* 


0O0A8 


2^5ono7E 


A 


5939 


C5 


00°AC 


3b5on2BF 


02 


5940 


c? 


QODAD 


6A30O?B£ 


02 


5941 










594? 


C5 


CO^AE 


0«70019C 


02 




C5 


OO^AF 


0*200030 


A 




C5 


OODBO 


A 30019C 


02 


5943 


C5 


OO^Bi 


6»0Eo001 


A 


■5944 










5945 










5946 










5947 


05 


000B2 


32FonDC3 




5948 


05 


000B3 


3t>Foni6B 


02 


5949 


05 


0OP84 


F*3cnoo5 


A 


5950 


Op; 


OOOB5 


3^400003 


A 


5951 


05 


00DB6 


2U400002 


A 


5952 


05 


00DB7 


7b4oni6B 


02 


5953 


OF 


OODBg 


F<JFfefi005 


A 



TPlO 



SlS#Pi 

LW/Xl 

Al#Xl 

CB,X2 

BM 

Al#Xl 

8R/D0 
STB # 00 

oe 

LB#X2 

hlsPi 

LB # RQ 

CAL3, 1 

BDR#X2 

LliRo 

CAL3j1 

Ll'RO 

CAL3,1 

ELSE 
SLSjPi 

STW#Pi 
BAL#Xi 
FIN 
PULL 



2 
Pi 
1 
0,X1 

*»2 

1 
XFq 

o#xi 
M8DE§i 

OjPI 

1 

OjPl 



S-3 

CR 


LF 


•? 

OMY$TPM*i 
DHVtTPM 

(Xl'Pl)'LNK 



B IjL^K 
# 

* THERE IS M8R£ THAN 8Ne COMMAND 
# 

TR20 



LW*Dl 


TPHSG 


STWjDI 


tfmpblck 


L8#Xi 


♦PI 


LWjXp 


Xl 


Al#X? 


2 


STB#X2 


TEMPBLCK 


LB,Dl 


*P1#X1 



2&0 
SET Pl.XltBYTE AtfDR 8F STRING 

SEARCH D©WN STRING T8 FIRST 'C(P)' 
SET Xi.ADDR 8F CHAR AFTER tC(P)» 

convert c6unt t8 ebcdic <m©d 10) 
and put in string 

set xg. length 8f string 
get char frqm string 

TYPE IT 

Leep 

TYPES L/F + C/R 



58 BACK T8 W8RD ADDRESSt 
SET UP ADDRESS F&R TYPeMSG. 



EXIT 
IN CDTi ADD *CN» T8 ERR8R MSG 

PUT »«C1» IF TEMPBLCK 
GET LENGTH 8F ER*8R MSG 



PUT LENGTH*2 IN TEMPBLCK 

M8VE ERR9R MSG T& TEMPBLCK AFTER 



MM 



2014* SEP OS* 


'75 










5954 


05 00089 


7SP8016B 02 




STBiDl 


TEMP8lCK,X2 


f *Ci» 


5955 


05 00PBA 


2U4FFFFF A 




Al#X3 


*1 




5956 


05 OOOBS 


64300DB8 




BDR#Xi 


*»3 


L88P 


k,957 


05 OCDBC 


2230OC02 A 




LUXi 


2 




5958 


05 OO^BD 


P"^E6n0AC 02 




LB, Do 


#CDTADR#Xi 


GET * df CMND IN CDT 


5959 


05 00D8E 


2UE0ncFO A 




AND0 


»0» 


C6NVERT T6 EBCDIC 


5960 


05 OO08F 


22300003 A 




Ll#Xt 


3 




59© \ 


05 oo^Co 


7&E6016B 02 




STB#Do 


TEMPBlCKjXl 


PUT IT AFTER »C» TS 


5q6? 


05 OODCi 


2250M6B 02 




LliPl 


TEMPBLCK 


'•CNP1IERR8R MS« f 


5963 


05 OODCS 


6»00OD9F 




B 


TP5 


GB PR6CESS »P» 


5964 






« 








5965 






# 








5966 


05 00DC3 


QU0C3F1 A 


TPMSG 


TEXTC 


• •Ci' 





2*1 



YIBID F6RM? 



HOI 20144 SEP 08# » 75 
5967 
5968 
"5969 

5970 
5971 
597? 

5973 
5974 
5975 



2*2 



5976 
5977 

5978 
5979 

5980 
5981. 

5982 

5983 
5984 
*985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 

5995 
5996 

*997 
5998 
5999 

6000 
6001 



05 OODO 

05 0CDC4 0*200020 

05 C00C5 0»30O19C 

05 0ODC6 C*7ooi9C 

C0OOOC0V 



05 0OPC7 
05 00DC8 
OF 0O0C9 



OP QODCA 
O5 OOOCB 
05 OOOCC 

05 GO0CD 
OF OO^CE 



A 
02 

02 

• S« 

*s* 
#s* 

#S« 
#S* 

*s* 

#s# 
#s# 

*s* 

#s* 
«s« 

♦s» 



327EO000 A 
22300000 A 
F2400G07 A 



F138OC07 A 

6*30ODCD 

6440OQCA 

22000008 A 
H080007 A 



PAGE 

# TYPE MfSSAGP 

• W6R0 AFTER BaI « W8RD ADDR SF TEXTC. STRING * 



TYPEMSG EQU 
PUSH 



LW#Xt 

SIS#X1 

LBiX2 

AliXl 

U,Ro 

CliRo 

BE 

CAL3'1 

BDR#X2 

LliRo 

CAL3jl 

LNRO 

CAL3j1 

ELSE 

1>'LN* 

LI*X1 

LBjX? 



C8/X1 

BSE 

BDR'X? 

LI#R0 
CB,R 



(X1/XP)#LNK 



M6DE.1 
0#LNK 

2 
OjXI 

1 

0#Xl 

EBM 

TM5 



$•5 

CR 



LF 



OjLNK 


#LNK 



*LNK # X2 

• ♦2 
»«2 

E6M 
♦LNKjXg 



SAVE RFGS 



SET Xi.BYTE ADDR 6F STRING 

X2-NUMBER ©F CHARS T© TYPE 



GET CHAR FR6M STRING 

IS CHARpEdM 

YES • ST8P TYPING 

TYPE IT 

L68P 

TYPE J L/F * C/R 



GET ADDRESS 6F MESSAGE AND BYTE 

New RUN DOWN T6 PIRST N0N.ZER© 
CHARACTER 



IF E8Mj D6 NST PRINT iTt 

BUT MARK N8T T© *FTURN CARRIAGE. 



HOI 



20IU SEP 08# 


'75 












6002 


05 


OODCF 


6*3onDD2 






BNE 


TM4 




6003 










« 








60C4 


0? 


OODOC 


2U4FFFFF 


A 




AliX ? 


• 1 


E6M F8UNDt 


6005 


OP 


OnDOl 


223FFFFF 


A 




LliXi 


• 1 




6006 










« 








6007 


05 


000D2 


0HQO2D7 


02 


TM4 


CAL1M 


TYPM*FPT 




6008 


05 


00003 


2U30OC00 


A 




Al#Xt 







6009 


05 


0O0D4 


6*lonDD7 






BLZ 


TM5 




6010 
6011. 


05 


OOPD5 


6 A 700DC4 




# 


BALjLNK 


TVPEMsG 


YES. CALL RECURSIVELY T» 


601? 


05 


00°06 


0U0OO27A 


02 




DATA 


HSGO 


SEND IT GUTt 


6013 












FIN 






6014 


05 
05 


00^07 

00008 
0OD09 


0*7oni9C 
08300020 

A 3oni9C 


02 

A 

02 


TM5 


PULL 


(Xi/Xgj^LNK 


RESTORE REGS* 


6015 


05 


OOODA 


6»OE0001 


A 




B 


1#LNK 


EXIT 



€m " %J 



Hfli 2CJ44 SEP C8# '75 
6016 
6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 



2*4 



6026 
6027 
602g 
6029 
6030 
6031 
^032 
6033 
6034 
6035 
6036 
6037 
6038 
6039 
60*0 
6041 
6042 
6043 
6044 
6045 
6046 

6047 

6048 

6Q49 

6050 
6051 



05 

05 QoODB 

05 OOODC 
05 QODDD 

05 OqDDE 
05 OOODF 

05 OnOEC 
05 OO^El 
05 Q0&E2 
05 00DE3 
05 00DE4 
(55 Qo D E5 
05 00°E6 
05 00PE7 
05 0ODE8 
05 00DE9 
05 OOOEA 
05 GO0EB 
05 CODEC 

05 CODED 
05 QODEE 
05 OOOE^ 
05 OOOFO 
05 OOOFl 

05 00g£2 
05 000F3 

05 000^4 

05 QQDF5 



OOOD0 

0^200040 
0°40019C 
3*40000? 
2S60O5AC 
6*700811 

32E0016C 
3^F80000 

2^00178 
7c!5oni6C 

2^500008 
4*500002 02 
3*Eoni6C 02 

5&50M6C 
3&F0O16D 
3*580000 
2^500018 
3^5oni6E 
2«E0O040 
28F000F0 
2S4005B2 

7*Egnooo 

63300DF6 
7&F80G00 

gyjooooi 

71E8n000 
6*3ooDF6 

7&F8O00O 



A 

02 
A 

02 

02 

A 

A 

02 

A 



02 
02 
A 
A 

02 

A 

A 

A 

A 

A 
A 



PAGE 
####♦#*♦*#♦#♦♦##♦######«♦########*#♦#♦#####♦*####*# 

* TYPE SfGUENCF NUMBER * 

♦ Pi f SEQt NUMBER T8 TYPE # 
« weRD AFTER BAL i 4 CHARS T8 APPEND T8 SEQ # # 

* 

TYPESEQ FGU * 

PUSH (X2iLNK) SAVE REQS 



LW,X? LNK 

LUP? BA(TEMPBLCK) 

BAL,LK'K BINT8DEC 

t>'D0 TEMPBLCK + 1 

l>*Dl 0jX2 

SLD#Dc »8 

LB, Pi TEMPBLCK*t 

SlS#Pl 8 

6RiPl KPE 

STW^Do TEMPBLCK^i 

STH,P1 TEMPBLCK*1 

STW#D1 TEMPBlC**2 

LWiPi o*X2 

SlS#Pi 24 

STWjP! TEMPBLCK*3 

LI#D0 » ' 

LI/X2 BA(TEMP8LCK)46 

CijDO 0#X2 

BNE TS10 
STB#Di 0**2 
Al#X? 1 
CB^Do 0**2 
BNE TS10 
STB#Di o#Xg 



C8NVERT SEQ # T8 EBCDIC* » DDDDQUD 1 
PUT A !•» BETWEEN 4TH AND 5TH 

DIGITS AND APPEND 4 SPECIFIED 

CHARS T8 ENP 



PUT THIS BACK IN TEMP BL8CK 



GET 4TN SPECIFIED CHAR AND PUT 
IN TEMP BL8CK 

ADD ZERQS BETWEEN DECIMAl 
P8INT AND ANY NUMBER 

IF NECCESSARY, 

ZER8S C8ULD 8NLY BE NEEDED 

IN TEMPBICK *6 AND *7t 

SEE IF SEC8ND 8N6. IS NECCESSARY 



HOI 20144 SEP 08* < 75 



6052 
6053 
6054 
6055 
6056 
6057 
605g 

6059 



05 0ODF6 
OF 00PF7 
OF 00 p P"8 
05 C0PF9 
05 OODFA 
05 OODFS 
OF OOOFC 



2*50000C 
7b500l6B 
6 A 7ooDC4 
0000016B 
02200040 
A 40019C 
6»0EO001 



A 

02 

02 
A 

02 
A 



* MAKE STRING TNT8 A TEXTC. STRING AND TYPE 



2*5 



# 
TS10 



Ll#Pl 

STBjPt 

BAL#LNK 

DATA 

PULL 



12 

TEMPBLCK 

TYPEMSG 

TEMPBLCK 

(X2#LNK) 

l.LNK 



ATTACH C6UNT Te MAKE A T£XTC«STrJnG 

TYPEI tDDD.DDDXXX, WITH LEADING 

0»S SUPPRESSED 
REST6RE REGS 

EXIT 



Hoi 20144 SEP 08# '75 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 



2*6 



6070 
6071 
6072 
6073 



6074 
6075 
6076 
6077 
6078 
6079 



6080 

60*5 1 
6082 
6083 
6084 
6085 
6086 



05 
05 OOCPD 
05 OODFE 
OS GODFF 
05 OOEOO 
05 OOEO! 
05 OOEoi 
03 00039 

03 0003B 



05 00E02 
03 0003C 

03 0003E 
03 0003F 
03 00040 
05 0OE03 
05 00E04 
05 OOE05 
05 OOE06 



OF 00EC7 
05 00E07 



UODFU 

0*200Q40 A 
d 700l9C 02 
6*7onCE6 
6A70OC4F 

0*100039 03 

0*000000 N 
^UOOOOOO 

0U00OE07 05 



0M0O03C 
HOOOOOO 
5*000030 
0UOOOE07 
3U00O0E7 
0U00O08A 
02200040 
0A70O19C 
0^200000 
6«0EO00O 



03 

N 

05 

02 
02 
A 

A 

A 



PAGE 

* WRITE REC8R0 IN C^PY FILE * 

* P% m SEQt NUMBER T8 WRTTE * 

* CCim IF RFC9R0 EXlSTSJ CCi«0 8THERWISE * 

# 
# 
WRITE2 FGU * 

PUSH (LNK # p 3) 

BAL#LNK SFTKEY 

BALiLNK PUTCR 

D61 M6DE»P 

MjSETDCB F:E9#(A8N,W2$ABN) 



# 
WgSABN 



MJWRITF 



(WAIT)*; 

(KEY*KBUF>jJ 
<NEWKEY),| 

(ABN # wg$ABN)iJ 

(SIZEj*RCCSZZe) 



7^F0no0A A 



PULL 

LCI 

B 



RES 
LB*D1 



(LNK#P3) 



OjLNK 


P3 



N8N»EXISTENT 



Hoi 20 U* SEP 08* 
60«7 05 00^08 
05 0OE09 



6088 
6089 
6090 

6091 

609? 



03 OOECA 
0? OOEoS 
05 OOEOC 

OR qqEoD 



»75 

21P"OOC16 A 
6£3Q0B81 

0*2000^0 A 

0A70O19C 02 

0*20OC80 A 

6*OEOOOO A 



CliOi 

PULL 

LCI 

B 



Xtl6» 

8A010 

(LNK#P3) 



OiLNK 



2&7 



REC8RD EXISTED 



HOI 20U4 REP C8j '75 
6093 
6094 
6095 
6096 
6097 
6098 
6099 

6100 
6101 

61C2 



2*8 



6103 
6104 
61C5 



6107 
6108 
6109 
6110 
6111 
611? 



61 13 

6114 
6115 
6116 
6117 
6118 
6119 



0? 

05 
05 
05 
05 
03 



05 
03 

03 
03 
03 
05 

05 
05 

0* 



05 
OoEcE 
COECF 

ooEio 

OOEll 
C0E12 
Q0E12 
00041 



03 00043 



0OE13 
00044 

00046 
00047 
00048 
QOEl* 
00^15 
00E16 
C0El7 



OOEOt 

0220OC4O A 
0°70019C 02 
6 A 7ooCE6 
6*7onC4F 

0*100041 03 
Q&OOOCCO N 
4U00OO0O 
OWOOO^IS 05 



0^1000*4 03 
UOOOOOO N 
5*000030 
0U00OE18 05 
8Q0000E7 02 
OUOOOOBA 02 
2 20OO*O A 
A 7oni9C 02 
0*200000 A 
6*0Eo00O A 



PAGE 



WRITE NEW RANDOM REC6RD 
Pi ■ SEQt NUMBER TS *RTTE 
CCl-o IF RFC8RD EXISTS; CClfl 



OTHERWISE # 



# 

W'PITENEwRANDeM ECU * 

PUSH <LNK,P3) 

BAL#LNK SETKEV 

BALjlMC PUTCR 

DSl M©DE§3 

M;SETDCB FJEIi(ABNjWNR*ABN) 



MjWRITF 



FjElii 

(WAIT) j I 

(KEY/KBUFJW 

(NEWKEY)ji 

<SUE,#RECSlZE)#J 

(ABN#WNR*ABN) 



PULL 
LCI 



(LNK#P3) 


OiLNK 



05 OOElS 



WNR$A8N RES 



*Cl 20U4 SEP 08# '75 2*9 

6120 OF? Q0E18 72FQO00A A I_9#D1 P3 

6121 OF 00E19 21F00016 A CI#Ol X»16» 

6122 OS OOElA 6^300881 BNE BADIS 

6123 OF OOElB 0*2000^0 A PULL (LNKjPJ) 
OF 00E1C 0A70D19C 02 

6124 OF OOEID 0*20O08O A LCI 8 

6125 OF OOElE 6»0En00O A B 0#LNK 



HOI 20S44 SEP 08j f ?5 
6126 
6127 

612a 

6129 
6130 
6131 
6132 

6133 05 

6134 OP OOElF 

6135 OS 00E2C 

6136 Of? 00E21 
6137 
6138 

6139 

6140 
6141 



230 



6142 
6143 
6144 

6145 



Q0E1 1 " 

Q970O19C 
6 A 700CE6 
6*7QOC4F 



05 
03 

03 
03 
OS 

OF 



05 
OF 

OF 
OF 
OF 
OF 
OF 
OF 
OF 



00E22 0*100049 
00049 lioonooo 
1*000050 
00048 8000O0E7 
0004C OUOOOCBA 
00E23 0*70019C 
0OE24 6*0EO000 

05 QQE2*' 

05 OOOOU 
00E25 OU404040 
0OE26 06700002 
00E27 00200000 
C0E28 0U98968O 
0OE29 0UO0O236 
0OE2A 0000P710 
00E2B QUFFFFFF 
0OE2C 0^000202 
00E2D 0^010202 



02 



03 

N 

02 

02 
02 
A 



A 
A 

A 

A 

02 

A 

A 

A 

A 



PAGE 

»#♦#♦###♦##♦*##»###########«♦*♦## 

# WRITE RAND8M REC8RD * 

* Pi - SEQt NUMBER T8 WRITE * 

# 
# 



UjRITERANDeM 

PUSH 

BALjLNK 
BAL#LNK 

MIWR1TP 



EN0EDIT8R 



PULL 

B 

END 



ECU * 
LNK 

SETKEY 
PUTCR 
FiEXj j 

(^AlT)i; 

<KEY # KBUF)jl 

(SNEWKEYJjj 

(SlZEj#RECSlZE) 



LNK 

0#LNK 

EGU $*10 

BEQINEDIT8R 



CBNTR8L SECTION SU"KARM ol 00000 PT 

05 00E2E PT 1 



02 003*2 PT 



03 00040 PT 



0* 00000 PT 1 



HOI 



20*44 SEP 08# '75 

sYMBeL values 

AOf3CDTPARAM/05 U081B 
ALLFLAQ/C2 00C2U 
AR!L0/C5 009*6 
ARj.S/OS 0099A 

BD:tSPTEU/o2 00317 
BGD10/05 00001 
BLANKBUF/05 00B*C 
BLDl»/o5 00382 
BID5/05 003*0 
BPVlo/05 0038B 
BRK3Q/05 002A3 
BRKR5/05 002C9 
BRK91/05 OO^ED 
CBRCHTBU/05 OOC^E 
CHARPSN/02 OOOAW 
CLOSE/O^ 00»33 
CMNOTBL/05 00351 
CMT30/05 00*79 
CMT70/05 00*89 
C8M/0000000/ 
CPV1B/05 003E0 
CPYpo/05 00*28 
CPY35/Q5 00*66 
CPY5/O5 C0406 
CPY5S/CS 00*7D 
CR3/0S 00*87 

DELETE/05 00B39 
DELNXT/02 0019B 
DJGTTS/02 0001A 
DL15/05 OOB*C 
DL30/OS 00B67 
DMY*TYPEPERW/C2 00PB9 

01/0000000P 

EDT5/O5 004 A 6 
E9F/00989680 
ERRCll/02 00100 



ALL8K/Q2 00021 
ARlOA/05 0098D 
AR20/Q5 0099E 
B0l0/05 00Bi7 
BINTODCC/05 OOBll 
BLANKCNT/02 000P2 
BLD25/C5 003C8 
BPFLAG/02 00023 
BPV5/O5 00386 
BRK40/C5 OOPAC 
BRK60/05 00?CD 
BRK99/05 OOPFC 
CDT/02 00048 
CHECKlCOTENTRY/OR 00834 
C16SE2/05 0CB35 
CMT10/05 00554 
CMT40/05 00580 
CM10A/05 O0B62 
CePYFL/02 OOOAE 
CPY10/05 00410 
CPY3/05 00401 
CPY36/05 0046A 
CPY5A/05 00*0B 
CPY60/05 0047E 
CR5/05 00489 
DELETEFILE/05 QOBAA 
DFgABN/05 00B7A 
DLT10/05 OO4AO 
DL17/05 00BS8 
DMY$TPM/02 002BE 

EDT10/05 004B1 
ENO/00000000 
E6H/00000008 
FRRC2/02 001A9 



ADjINT/05 00287 
ALPN/00000006 
AR12/05 00993 
BADI9/05 00B81 
BD20/05 00B28 
BL/TEXT 

BLD08/0B Q03A6 
BLD30/0B 003D2 
BPVaFF/05 0038F 
BRSFPT/O? 002CD 
BRKBo/05 002B8 
BRKgQ/05 00202 
BUILDFUG/02 002C1 
CDTADR/02 OOOAC 

CL&SF3/05 00B37 
CHTI5/O5 00568 
CMT50/05 00883 
CNAMETBL/05 00039 
CPY1/05 003E4 
CPY15/05 0041A 
CPY30/05 00430 
CPY37/05 0046C 
CPY50/05 00471 
CR/OOOOCOOD 
CT$FLAG/02 001A1 
DELETERECdRD/05 0QB95 
DFITINCR/02 OOOQO 
DLT5/05 OO49D 
DL20/05 OOBBC 
DMY«TYPECERR/02 002B6 
DMYSTKDW/O? OOOOC 
EDT15/05 004B3 
ENDED1T6R/05 00E2F 
ERRC1/02 001A5 
ERRC3/02 001AD 



8*1 

ADjUSTALtFLA<3/05 00978 
ANLZKIGHT/05 0097C 
AR15/05 00996 
&ADI&1/05 00^82 
BD30'o5 00B23 
BLANK/OOOOOOQC 
BLDlO/05 003A8 
BLD4Q/05 003P5 
BPV8N/Q5 0038E 
tfRK$*EY/Q5 0028F 
bRK53/05 002^4 
BRK9Q/05 0020C 
CARDlMG/02 00024 
CFLAtf/02 0Q2C2 
CHGiSTGjCNT/02 0019F 
CM/TEXT 

CMT20/05 00574 
CMT60/05 00586 
CNMRTBL/05 00084 
CPYlA/05 003EB 
CPY2/05 003F2 
CPY3S/05 0043E 
CPY40/05 0046E 
CPY56/05 0047C 
CRFU A G/02 OOOAF 
CTBLSZ/00000025 

PFLT$EQ/00O0Q3E8 
OLIO/05 OOB3P 
DL25/05 00B63 

DO/OOOOOOOE 
EDT20/05 00*&6 
E6DCLMN/02 000B1 
ERRClO/02 OOiCC 
ERRC*/Q2 QOl&l 



HOI 20J44 SEP 08* *75 
ERRC5/02 0018^ 
ERf?C9/o2 OOlCg 
ERRMU/Og 001F6 
ERRM18/02 OU20C 
ERRM3/08 OOlDC 
ERRM«/ 2 001E8 
ERRPll/02 00254 
ERRP14A/02 00261 
ERRP18/02 00276 
ERRP5/02 00230 
ERRPq/02 OO24D 
EXC30/05 00^44 
EXCKB/05 00351 
F|BUHD/05 00390 
FIEDlT/05 004a3 
FlLNK/OOOOOOOD 
FClLO/05 009C1 
FC3O/Q5 009*2 
FF/OOOOOOOC 
FIUETYPE/02 000 b 6 
FlNTSh $ STEPfLeO»"/oR 006Bg 
FiRST^l'CMNO/QOUOOOlE 
FIrSTFr9M/02 C0OB8 

FM10B/05 009FF 
FM30/05 OOAll 
FMD?0/05 00^A8 
FN040/05 00*88 
FND^A/Og OO5CC 

GET$TNcREMEMT/05? 00117 
GETFTIEID/O* 00*3A 
QETNEXTNAME/05 00««9 
GF$PUSH*SUB*/G5 0087F 

GFlS/05 00867 
G\TBLl/05 008CD 

GM'YTBU/oS 008tF 
GN35/05 008 tt 2 

gp^blsz/ooooooosj 



ERRC6/C2 001 BB 
ERRMi/02 001D5 
ERRMlg/02 OOlFA 
ERRM19/02 00214 
ERRM4/02 OOlDF 
ERR8RCNT/02 OOQB? 
ERRP12/02 0025s 
ERRP15/02 00265 
ERRP2/02 00P32 
ERRP6/02 00241 
EXC10/05 0032B 
EXC40/05 00347 
EXC6/05 003P2 
FlCBPY/05 003D9 
FIEI/EXT 

FJMERGE/05 004BE 
FC15/05 009CC 
FC35/O5 Q09E4 
FlBlADR/02 00083 
FIN0CdLUMN/o5 Q09A4 



FlRSTSET/02 000B9 
FM15/05 00AO4 
FNDTBtl/05 005D2 
FND30/05 00592 
FND5Q/05 005C1 
FNO7O/O5 OOrCF 

GETNEXT*ERR6R/0?5 DC8A1 



GF20/05 00874 
QNTBUSZ/00000004 
GN10/05 00895 
GN45/05 008C5 
GPTYTBL/05 00961 



ERRC7/02 OOlBF 
ERRMig/op 001EB 
CRRM16/0P 00201 
ERRMP0/02 0021D 
ERRMR/02 001E3 
ERRPl/02 0022E 
ERRP13/02 002SD 
ERRR16/02 00269 
ERRP3/02 00236 
ERRP7/02 00245 

EXCI5/O5 00334 
EXCS/05 00325 
FJBLANKiPRESERV/05 Q037E 
FjCR/05 00481 

FIEND/05 G04BA* 
F|RP/05 0048C 

FC15A/05 009CD 
FC4O/O5 009E9 
FID2ADR/02 O00B4 
FINDMATCH/05 009EF 
FIRST$FJCMND/00000004 
FIRSTAR 1 CMND/OOOOOOOB 
FMlO/05 009FB 

PM20/05 00A06 
FNDTBL2/05 00SD5 
FN032/05 005B4 
FND60/05 005C8 
FRSTCIMN/O? OOOB7 
GET*SEQ$INCR/05 0Q10F 

GETNEXTPARAM/05 OO8D4 
GF10/05 008S4 
GF30/05 00877 
GNTBL2/05 008D1 
GN25/05 008AA 
GN50/05 008CB 
GP10/05 008EA 



ERRC8/02 

ERRM13/02 
ERRM17/02 
ERRM21/Q2 

ERRM6/Q2 

ERRP10/02 

ERRPH/02 

ERRP17/02 

ERRP4/Q2 

ERRP8/02 

EXC20/05 
£Xc50/05 



001C4 
OOlFg 
00206 
00223 

00lfc6 
00250 
00261 
00271 

00239 

00249 

00337 
0034A 



2?2 



FjDEtETE/05 00497 
FIE8/FXT 
FJTA/OS 00534 
FC20/05 009DQ 
FC45/O5 009EC 
MELOCNT/02 000B5 



FM10A/05 009FD 
PM80A/05 OOAOB 
FNDTYP/05 OOSAE 
FND3S/05 005^8 
FN06S/Q5 005CA 

GET*CeL*$PAlR/05 00lK2 
GETNfc X T*FlNlSH/05 OO&BD 

MF15/05 0085C 
^F5/05 00843 
GNTBW2SZ/00000008 
GN30/05 008AC 
GPTBU/05 0095F 
GP20/05 00gF4 
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GP30/05 COS 1 *? 
QP43/05 009H 
GP«5?A/ 5 oo^2c 
GPfcO/O* 00938 
IJ[>ElETE/05 GC7?3 
HjUMP/05 0Q7ED 
I|»V|fRWR^EXTEN0/05 00787 
IlPPFCEDEtBY/05 00?QC 
I I SET/05 00^20 
HSUBSTITUU/05 007D4 

I |TY*CMND»NnR/0l>00OC2S 
IjTYPEX/05 0C814 

icj510/05 oooaa 
ic^blsz/oooooco* 
insmsg/q5 0q613 

IN<J3g/ 5 Q0 6 00 
INTFLAG2/02 002^4 
JMP10/05 00?F8 
Kl/OP 00000 
LASTKEY/02 ooobu 
LF/00000015 
MJTRTN/05 002DB 
MAXCLMM/0000008«r 
M8VFSTRINQ/05 OUAi* 
M <23o/05 OOBWB 
MRCiiif/ 5 0^4 
MR625/05 OOM8 

MRQS6/05 00*23 
MRGg?/ n 5 00^30 
MSG3/02 00281 
MSG7/02 00293 
MS20A/05 00 A 2C 
MVE:MSGl/o2 002 A/ 
MVEjO/05 00646 
MVE53/05 00^71 
NCGlo/05 00«05 
NePR8MPT$FPT/ C 2 00?CC 



GP30A/05 OOflPD 
GP45/05 00914 
GP53/05 00928 
SP63/05 0094^ 
IJOELETEOl/05 0077D 

i:lnk/oooooooo 



IISHlFT$LEFT/05 C07A7 



ICBRCHTBI/05 OQOEF 
ICS20/05 000B2 
lLGL*S|MlC9L^N/05 C0035 
INS10/0S 0CRE9 
INS40/05 OO^OF 
INTO/00000004 
JMP15/0S 007FB 
K1C/02 00001 
LASTSET/02 OOOBE 
LNK/00000007 

MA3TEREXECUTIVE/0R 00301 
MAXSEO/02 OOCBF 
M010/05 00BA5 
MQ30A/05 OOBBD 
MRGi5/q5 004FD 
MRG30/05 0051C 
MRQ65/Q5 00526 
MSGo/02 0027A 
MSG4/02 002«4 
MSG8/02 00299 
MS20B/05 00A31 
MVEMSG2/Q2 002AD 
MVE3S/05 00*59 
MVE56/05 00674 
NEwCDTENTRY/05 00963 



GP35/05 00900 
GP50/05 00917 
GP53A/05 00931 
GP66/O5 009R7 
IJDELETE02/05 00776 
IjNS$CHANGE/05 00800 
H6VERWRITE/05 007Bl 
IIREVERSEtBPFLAQI/05 00808 

I ;TS$CMNO*NMR/0000002A 
1 1 TYPE/05 0080C 
ICNAMETBL/05 000E3 
ICS5O/O5 000B& 

INS20/05 005ED 
INS50/05 00610 
IQERRCeD/02 002A5 
K8UF/02 OOOBA 
LASTCLMN/02 OOOBB 
LCLETTERS/02 0001E 
LP/TEXT 

MeDE/00000002 
MQ20/05 00BA8 
MRGlO/05 00409 

MRG17/05 00503 
MRG35/05 00520 

MRQ7Q/05 0052A 
MSG1/Q2 0027B 
MSGg/02 002«g 
MS10/05 O0AP6 
MS5/05 0OA1F 
MVElo/05 00619 
MVE4O/O5 00^61 
MVE38/05 00683 

»$ABN/05 0QBE4 



293 
^40^05 00905 
GP52/05 0091A 
GP55/n5 00934 
HEXCMAR/02 OOOOE 
nreUL8W*BY/05 00798 



I:sHlFT$RlQHT/05 007GA 

UTYPF$SUPtSEQ/05 00*10 
ICNMKTBL/05 OOOEC 

ICS90/05 OOOPE 
HGL*SEQ2/05 00129 
INS35/05 006Q4 
INTFlAGl/02 002C3 
I9ERKMSG/0? 002A0 
KPE/OP 00002 
UASTFR&M/02 OOOBC 
LETTErS/02 0001C 
LPAR/00000009 
MASTERPaRSeR/qs 00004 
M8VE$eQ/05 00B97 
hQ25/05 OOBB* 
NRG13/05 00* F 3 
MRG20/05 005Q6 
riRG55/05 00522 

MRqSO/05 0052C 
MSG2/Q2 0027E 
MS66'02 0028C 
MS20/05 00A29 
MVDjWEOlCNT/02 0019E 
MVE20/05 0062B 
MVE50/05 0066E 
NAmE/QOOOOQOI 
N0CHOiFLG/OP OOOCO 
8$ACCT/02 00363 
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Q$FPT/02 00351 
9EJ<?o^05 00*96 
6PENNEW/05 O0C36 
82*ABN/Q5 OOBFE 
82*PaS$/02 0037W 

parseibuild'Ob voina 

PArSE?CR/05 000*7 
PAR8FIF0IT/05 00181 
PARSFIFT/05 OCl u C 
PaRSf8!*CMNU$ST n G/05 
PARSCIjU/05 002*8 
PARSFSMK/05 00210 
PARSeIRP/qB 000*7 
PARSFJTA/05 000*7 
PAR8MTV/ g 002^9 

PBU30/05 00X1C 
PC»3/05 0013F 
PDEPo/o5 001C5 
PFDJ5/Q5 001E6 
PMD?0/05 00225 
PME3f>/05 0017A 
PP10/05 00A3F 
PRNBUFS4/02 000*6 
PRaCFSSC©L* KA lR / 05 C0A34 
PRS10/05 00033 
PTYj5/n5 00283 

Pl/00000005 
RIDELETE/OB 005*C 
R|FTND«SEQU&NCE/05 00594 
RjlNSERT/05 005^B 

r;mbve$delete/05 00614 

RIRENUMBER/05 00686 
RITS«CMND$N"R/0WO0O0l5 
RITYPE/05 006C3 
READNXTRANDOM/Qb 0OC61 
READTELETYPt/c5 00CB2 
RECSUe/02 O00E7 



0*NAME/02 0035A 
8N $ A8N/Q5 Q0C45 
aPENl/05 OOBCC 
82$ACCT/02 0037A 
PARAMBUF/02 OOOCl 

PArSEICVOB 00198 
PARSEJEND/OK 0018B 
PARSEMlCMND$!NT6/05 
0008E 

PARSEJMD/05 00210 
PARSE1N6/05 0018B 
PARSEISE/05 0018? 
PARSE JTC/05 0026? 
PBU05/05 001 2C 

PCM10/05 0019C 
PC65/05 00146 
PDE5/05 001B9 
PFDgQ/05 00209 
PMD25/05 00226 
PME35/05 001 7B 
PP20/05 00A45 
PRK10/05 00P31 



PSS10/05 00P50 
PTY5/QS 00281 
P2/00000006 
RJF!ND*DElETE/05 0C596 



8$PASS/0? 00366 
8PEN/Q5 00BC8 
8PENP/O5 OOBEF 
82*FPT/0P 00368 
PARAMPSN/Q2 000E5 
PARSE JCM/05 00193 
PARSEJDE/05 001AF 
PARSEjFD/05 001DC 
00096 

PARSE « IN/05 0020C 
PARSESMERQE/05 00150 
PARSEjRF/05 0025C 
PARSFISS/05 00245 
PARSE ITS/05 00269 
PBUlO/05 00115 

PCH2O/0S 001AC 
PDE10/05 001BA 
PERI8D/0O0OO0OB 
PMDlQ/05 00219 
PMElR/05 00162 
PME40/05 0017E 
PP25/05 00A50 
PRNSO/Og 0023D 
pR©MPT*FPT/02 002CA 
PSS20/05 00256 
PUTCR/05 00C4F 
P3/0O00OO0A 



RMNSERT$SUP$SEQ/05 
RJSET$STEP/05 00699 
RSTYPE$C8MPrESSFD/0S 

RELATIVE/02 OO37F 



RjF!N0$TYPE/05 00598 
00508 

RJ*»VE*KEEP/OS 00616 
RjSET$STEP$TYPE/05 0069B 
R S TY*CMND*NMR/0000001 6 
006C3 

READRAND8M/05 00C6D 
READTELETYPF2/05 OOCAE 
RE&PEN/05 00CE4 



2^4 
9EX10/05 00791 
OPENlNlT/05 00C08 
©PEN3/0S OOBEB 
82$NAME/02 00371 
PARStjBP/05 000F7 
PARSE :C9PY/05 00l3t 
PARSt:pELETE/05 OOlSi 
PARSMFS/05 0Q1DC 

parse: is/ob oosoc 

PARSE jRN/05 00228 
PARSE 1ST/05 00245 
PARSE jTX/OS 0025C 
PBU20/05 00121 

PC8IO/O5 00149 
PDE15/05 OQl&B 
PFD10/05 001E5 
PMD15/05 0021A 
PME20/05 00167 
PME5/05 00161 
PR/TEXT 

PRN3O/O5 00242 
PrQMPT2$FPt/02 002CB 
PTY1Q/05 00282 
PUTCR2/05 qqCBF 
R:C6MMENTARY/05 0054b 



RJLNK/OOOOOOOO 



RSTYPF*SUP*SEQ/05 oo<?cb 
READSEQUEN/05 00C7F 

REPSEG/O5 0028B 
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RE5TARTfEXEtUTl v E/05 0030C 



RNMio/05 00^93 
RPAR/COOOOOOA 
RS'^ABN/05 00C90 
PT!|FPT/02 0U2DC 
RTlo/05 0QC07 
RT3/05 OOCO 
R2/OO0OO00C 
SC/TFXT 

SEi;?/000000U3 
SETFLAG/02 00cE y 
SETLASTKEY/05 QUCEA 
SLIO/Og 0QA87 
SLS/05 00A8O 
SPU?n/05 00 6 Cc 

sr:lo/05 coa»e 

SRIIka/05 OOACE 
SR!5O/05 COAUD 
SR»5?/0«5 0QA*9 
SR8/Q5 00AB3 
STACKSZ/0000007W 
STL?0/05 00^70 
STttPLASTCMD/05 U02F7 
SVBPFLAQ/02 00l 6A 
TABClO/05 000*7 
TABC18/OS 0OD5B 
TABC*5/05 00073 
TABSET/O5 005*1 
TABX15/05 00D1F 
TABx«5/05 00^00 
TC25/05 OOD»C 

TEXTCADR/02 00175 
TPMSQ/05 00UC3 
TRECSIZE/02 0Cl A 3 
TTY!MQS^/02 OCl*A 
TYPE$nCMND s D/0^ OOOCF 
TYPFCARO/05 00^*2 



RNM13/05 00*96 
RP3/C5 00^9? 
RS*aSNA8N/0R 0QC9B 
RTADOTBL/05 0OCE2 
RT15/05 00CD9 
RT9/05 OOCD5 
S/FUNC 

SC8L/00000008 
SET$l&SP/05 00748 
SETKEY/05 O0CE6 
SETlQ/05 00746 
SLgO/Og OOAgE 
SL5A/05 00A82 
SRS10/05 00A67 

8R12/05 00AC1 
SR20/05 00AD5 
SR52/05 00AE4 
SR60/05 OOAFF 
SR8A/Q5 00AB5 
STEP*L0eP/05 006AD 
STL30/05 0075A 

SVlSTSET/02 00169 
TABCI3/O5 00D49 

TABC20/05 0OD60 
TABC5/C5 00D44 
TABXFLAQ/02 002C7 
TA8X17/05 00026 
TA8X7/05 00D12 
TC5/05 00086 
TM^/05 OODDP 
TP10/05 000A3 
TSADDR/02 002C8 
TXFLAQ/02 001A2 

TYPECERR/05 OODgF 



RESUM£$PARSING/05 OOOlF 
RP/TEXT 
RP5/05 00494 
RS*ABNE8M/05 00CA2 
RTSTBTBL/05 OOCDE 
RT17/05 OOCDB 
RO/OOOOOOOO 
SBS10/05 007E1 
SEQ/OOOOOQO? 
SETADR/OP 0O0E8 
SETKp/05 OOCFA 
SHIFTIEFT/05 00A70 
SL3/O5 C0A76 
SPL10/05 006B3 
SRS15/05 00A6A 
SR12A/05 00AC3 
SR20A/05 00AD6 
SR52A/05 00AE6 
SR70/05 00B03 
STACK/02 OOOEA 
STEPFLAQ/Og 00167 
STL5/05 0074F 
STPlO/05 006A9 
TABCFLAQ/02 002C6 
TABCI5/O5 OOD4C 
TABC25/05 00D67 
TABERRFLAQ/02 002C5 

TABX10/05 00D15 
TABX19/C5 00D31 
TA5/05 0053F 
TEMPBLCK/02 0016B 

TM5/O5 00D07 
TP20/05 O0DB2 
TSlo/05 00DF6 
TYPe*ALPHA/05 OOOBD 
TYPEtHCMND»S/05 OOOpl 
TYPEMSG/05 OO0C4 



2*5 

RP*FUG/02 001AO 
RR$E*R/05 00^78 
HS*At*NeUT/05 00CA7 
RTSTBTBL/05 OOCEC 
RT5/05 00CB5 
Rl/OOOOOOOB 
SBS15/05 007E.5 
SEQHM/0098967F 
SETE&D/05 O0A56 
SETKfe/05 OOCFE 
SHIFTRIQHT/Q5 00*99 
SL30/05 00A93 
SPLlS/05 006BD 
SRS5/05 0OA60 
SR15/05 00AC9 
SR5/O5 00AA3 
SR55/05 OOAEfc 
SR72/05 OOBOP 
STAC*DW/02 0019C 
STLIO/O5 00760 
STBPCLMN/02 00168 
STRQ/00000005 
TABC9MPRESS/05 00D3B 
TABC17/05 O0P5A 

TABC30/05 O0D6F 
TABEXPAND/05 OODOl 

TABXlP/05 O0D19 
TABXV05 OODOC 
TC15/05 00D87 
TESTEDITACTIVE/05 00^78 
TPC$FPT/02 002D2 
TP5/0R 00D9F 
TTYinQ/02 00176 
TYPE*BETA/05 000C6 

TYPEPERR/05 00099 



HOI 
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TyPESEQ/05 OOODW 
TYf 3 i7/o5 00*Fi 
TYP4 /o5 00 6 FE 
TYP50/05 00?0A 

TYP70/05 00^18 

TVPPp/oS 00 7 26 

UT!$M t / 2 008E1 

UTSsMr/oS 002F 6 

WKR*ABK/05 00E1» 
WRHF2/Q5 OOCFD 

xi:tNTe/og ooqi* 

XI8/02 Q001* 
XFFFF/o2 00006 

Xl/00000003 

x^/oooooooa 

4BLNKS/02 0000A 
EXTERNAL D E FlNITI9N5i 

BEC3INEDlTaR/05 00000 

SECT1/02 OOOOC 
PRIMARV REFERENCES 

JlCCBUF ^BjCCARS 
SECONDARY REFERENCE* 
UNDEFINED SYMBOLS 
ERROR SFVERITY LEVEL? 
ERROR LINES 



2?6 



TYPM*FPT/02 00207 


TYP10/05 OOfeOc 


TYPlS/05 006E9 


TYP2o/o5 00*F4 


TYP85/05 006F9 


TYP2SA/05 OO^FB 


TYP42/Q5 00701 


TYP45/05 0070« 


TYP5/05 00*09 


TYP55/05 0070F 


TYP60/05 00713 


TYP6S/05 00717 


TYP78/05 0071B 


TYP75/05 0071D 


TYP80/05 00725 


TYP90/05 0072C 


Tl/00000008 


T2/00000009 


UTSM2/Q2 00?E4 


UTSM3/Q2 002EB 


UTSM4/Q2 002^-9 


UTSM6/02 00303 


UTSM7/02 OO3O7 


UTSM8/02 003OB 


WRlTENEWRAN D 8M/05 COEOE 




wrITErANdGm/05 00E1F 


W2$ABN/05 00E07 


XjC/02 00019 


XIF/02 00016 


XSM/Q2 00017 


XJ6N/Q2 00012 


XSOVfcR/OE 00013 


XJTe/02 00015 


XEGFLAG/02 008C9 


XF/02 00003 


XFFFFFF/02 00008 


XFFoO/02 00005 


XF0/02 00004 


X1FFFF/02 00007 


X2/0000000* 


X3/00000001 


X8C0000/02 OOOO9 


ZEReJSTGlFLQ/02 001A4 





SECT5/O5 00000 

MIEI 



M:EQ 



FDITBASF/02 00000 



MjUC 



PATCH/02 0031F 



XEReXFR8XERBXFR8XER8XfcReXtReXEReXERuXERaXER6XEReXER8XER©XER9XcReXER0XER0XER8XKROXEReXEReXER5XER9XERaXEROXtROX 
XER8XERBXER8XFR8XER8XfcR8XtRBXERQXER»XER8XER8XEReXER8XEReXER8XER8XER8XERBXERBXEReXERBXER8XER8XER9XtR8XERBXfcRex 
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ELAPSFD J8B TIME 


112 


PARTITI8N NUMBpR 


14 


T8TAL CPU TIMF 


8^0098 


PR8CFSS8R EXeCUTlBN TlMfc 


7»2M1 


PR8CESS8R J5FRVICE TIME 


t7687 


CARDS? CARDS REA^ 


19 


PAGES? PRBCESS8R PAGfcS 


446 


CBRE! PEAK CBRF(PAQfcS) 


32 


PAGE. MINUTES 


278t3007 


1/88 8PERATIBNS 


13239 


CALS 


30990 


FILE SPACE 




PEAK RAD Tf"Mp8RARY 


296 


AVLBL DISK PFRMANENT 


575 


RESOURCES ALL8CATED 




CB. 3g(PAG£S) 





